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Gestion de fichiers par RWTS 
Cahier Macintosh 
Ecriture en haute resolution 
Disk check-up 

Initiation a l assembleur (5) 




Epistole lie 



L'ecriture souris 
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Epislole ttc possede 
res lonciions de mailing 
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^circuidires,niats aussj 
cturoG.dcvis, buc^gcts, 
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Existe sur Apple lie. 
Demonstration chez votre 
revendeur Apple. 
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][ 



VENTE MR CORRESPONDANCE 

(fonctinnnent sur ][ + «t lie, le C figurant k c6t6 d'un tiom 
indiqueqi^e le programme eat garanti fonctionner sur //c) 

JEUX 



*^ Macintosh: 

JEUX 



Prix T.T C. 



ARCADE 


























WIMIT MAN fP^riyiimk 


200,00 








BOUNCING KAN/UMGAfi fPenguinj 


30O.00 








Nif^Hl MISSION flNBALHSublggic) 










AQLIATRON (Sie'ra) 






At ]| 














WAV ML J 1 (SirjLis) 






m V T 1 1 f h J 1 




1 n 1 n i^iiTi ^njiti-iii i j ■ r i j 


41 cj fin 




AEE003 




GtlMBAI 1 (Rmd<>Fl>unrI> 


3ir>,nn 








CI IF^ UT OIL Jl 1 1 IT'^O II /f>. 

rLJtn hi 1 ;alMUI_A H JH II (^LininQrnj 






Oi ic nn 1 

riL^C -J\r \ 




^1 IMUFR flAMP^i 


j1 1 n f\f\ 
1 1 0.UU 




AEE004 




CHOPLIFTEH fBrodefbund) 


340 00 




AWE001 




M[NER 2049ER (Mjcro Rjni 


40O.D0 




ARE003 




OIL S WELL [Sjerra) 


300.00 




AGE0a4 




THE SPY STRIKES BArK 'Ppnniiinl 


200,00 


BTRATeaiE 


AMEOOI 




PROF. TOURNAMENT GOLF ^aUaleHitrj 


400,00 




AAE^OI 




SARQQM lit CHfiWiJtTll) 


470,00. 

400IOO 


AVEKTURE 


AHEOOl 




MASQUERADE fPh»peni>f! 






AJEOOl 




LEGACY OF LLYLGAMVN fSfr-TscW 


4oaoo. 








D/sflK CRYSTAL (SiBrra) 




UTILITAIRES 










IMPRESSION 




C 


SiDFWaVS (Punk) 


620 .00 


EDIT. BASIC 






(JPLE (Beagle Bros) 


600.00 


TABLEKR 






MULTIPLANlWictOBOftJ 


i.7so,ao 


ooMrvtuNJC. 




c 


ASCII fcXPRKiS; ThEEPHU (United) 




uniquement ; 


(SOCOLI 








ORGA^LSATI0N 


AQBOOl 




THINK TANK (US) (Lining ViOeolexj 


TELEPHOMEjr 


TABLEURi- 


ANFOQl 




TK! SOLVER lU5) (Software Atisj 


3.700,00 


et//e uniquement : taocou 








FICHIER 


ACFtXJl 




PFS . FILE (US) (Software PLjbl.) 


1. 250.00 


IMPRESSION 


ACF002 




PFS : REPORT (US) (Soft^ivare Publ) 


1.250,00 


FICHIER 






HOMECATALOGER (US) (Continental) 


520-00 



ARC ADC 



UTILITAIRES 



BAGOOl MAC VEGAS ^USj Roulen^-Pok^f-QI^QkjeCK'KenO- TfeLEPHQNK' 

AAOOOl SAHQON III (U5> (HaytlBri) f^LePHOf^J^I 

AXGOOt MILLIONAIRE (US) fBlUH CKlpJ GGO.OO 

A!<Q002 BARON (US) (Blue Chrpj TELEPHONE^l 

AXOOOa TYCOON (,USf ^8l(*t: CJnp) TElEPHOKEZ I 

AQ<at303 TRANSYLVANIA <U3> JPBHt^i 400.00 

AQQ0O& PENSATE <US3 (Pefigum> 43d»00 

Azoooi rtUN ron Tt ic moncy (ugj (Scarb,) 4eo,oo 

BAQ002 MAC GAMMON (USi- TtLIIPl lONLZ I 

BAG003 MAC CHECKEnS & nCVCRSl (US) TIIlCM IONLZ I 



TABLEUR 

QRAPHIQUE 

LANQAQE 

FICHIER 

IMPRESSION 

FICHIER+ 



ARrion? MUi TiPj. AN (US) (Micros otl) 

ABQons u innofifjFT ch a h r cjs > 

ABGOOe UinROROFT RAJ^ir: (LIS) 

ACG001 PPt^ FILEnJRHRrtffwaFHPubl.) 

ACGO02 PFS REPORT {USl (BofrwarePubl.) 

AVC5001 FILEVISION ( JS) fTelos) 

\h\et. Nvn^ ii Bnrai^sEins vDtifl isgltinant qiit Iw dt I eiiptditiDn de vahi co-irmvidA. 



TOfltBHiBniiDd' W Ciift^iK^E aam un ddal mBiiEnnin dB 15 jnim sera rHmbFuifLabli mr vnhB dmuniEg Tnui ihe Ammv jlihiI ncanursa^s. 



vii ma maiquc dgpoaes AppiB Campiirer inc. 
' h^Bcintuh ejliauj TicinEBchvf Apple Cuin-puicr bm^ 



TELEPHONEZ * 

1 -uiri.nn 
i.2fin,™i 

1 250,00 

2.000,00 



M. roff il'^aiWWi Jim P*« -572 M15 



24 ruetfAnraHJg 7KH7 Paris 
t1) 5725515 



P jflOe&irflseuiBrnpiireGovoJrvoirBcalabgue* 
fJcund re deux linMires tacfT ledrB norrna}) 





DiBtOMATIDH 






























PaiVdpalhni lux Into itapoilBlil'aiidHDiBi 

TOTAL 







n CCi' 

L . k.l.uir.criL psr LjTit biouQ V|5A 



-L-L 



I I 



H08— 



par carte de crddill 



pals d'a:cpiiali04i 



jnpmrtiirtWESTCORP 



Editorial 



Pout ies po.s:.et^^eurs ^ l4adntmfL iJfftf i^ne et une imuvmsp noiwelle S la fois. La bonne nouveiie - 
te Maciiih>^ 512^^^ mifi^- l& mtri0se nouvelle • it.^o roiVe 10.000 F hors t3xt> prix puhhc. par 
t^mfM^'v j:28f<! la niSm6ir& i^us r^^^&nt moiiw cht-r en mangirdriit du pois^on... PoiU it' k^jUlt'l fiou ' 
h bonn^ nouveUe est rcpiC^seiiiC-t- p.\r rnnnoncc de 80 hgiach, la mauvt}}se ctant Que I on consLUe des 
a presem du rete}rd par tappon ms\ duties annon-\'rs riinv k- dossier prcsse Apple du Sicob // est 
fraj qit^- la mis^^ point d\m h'jiaul .^ur in} r,/uipcmcni poi^sed^nf Ies ionciiom UilHO- du M.ianU^^h 
n est pas uac sn^ectne Cnfm. fidOii'i^ uodv pios!]v^:5c. rii^tb de'Vi^ioppons dans ce num&ro un Oihier 
Maamosh. dans L'quel nous essaiL^roits uitj.s foisinir. commr pnurVApple , des programmes et d&s 
lemarqui's wus apporkvit plus que la •^imitU^ krnin' J,-; documpntations 

Qu^nt S ia iign,- AppL- , /a compatibiluc r^'Luv.: du c I'.-on- Pom^ I'^J fasi qu'cUiKKHd'hw s! SC Vend 
encore un i- puui uii c. tiompam djn>r muie^ ies pn^vision^ d Apple Cnmmc k' di<en! A's ^vj.l^--^s- 
asj^hques. Ia previ:^ion est un an difHni^. runout quand eilp povie sur iavcnir ! Rt-suitat , il faut toire k 
queue p^ur^ck^ un '-^ ^£^:^:&n^hars^ sans pij^bleme uti dteifui^ Contra tin c pr0l ^ emponer. 

L equips cfe ^Wj^'s vient Je seniichir dc deu\ peisannes D id la fin do i ann^e. nous espeinn^ done 
qu il nous miiata mains de rrois mois pour repondre c\ voire couTm-r Cea dit. ne prene^ pa.-i Pom 's 
pour^ iine enircprise de rr)^^■t■;7 gratuU^^ certains U-cteiii<: nou.^ i.'nvoiein des questions qui re^cmblent 
pluiot a un cahitr dcs charcjfs " pour !^5quk'He:> id it'jjou^it demandeiail une veritable intetventioi] de 
coitseil C'esi trc^ ! 

Une dexni^re remarque : ceriains contiil'uh^n!-^ dr^ju mm^ .-iduw-nn<^ h "fku^inv" nouy ^vny-^;.7?: dc.^ 
programmes doryt tous hs commenlairc;; y^oni :*. Ji<^rj^ cn ^mghti^. ani^n^MU Ies Ikscteuis wuj:^? i^ue uuui> 
reptoduison.^. l3' honfc. des ftrugraniTnes am^rfcafns, 5'fl wus platt envov^^ dvnc d^s contnbutions 
entteiemenl en frant^ais. 

En^n. Xtltime bonne nouvelle : OHvif^ est de retour du Japon svec iQujovrs dc t hc\.^dedmal phin 
a 0^ Gas^on^ qoi^ rautGur de HMa. du H-Basic et de ransj^seui Ut- tiyfjtaxe nous reserve encore 

H^v0 Tbfriez 



■Wroto de couverture : eoan ?or\At am toterie irKurpoi^. pour Apide c fahrique par lEF funsr mtsy 
U lornie du monHeur n est pas dflftiiiiive- 
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Slegi> sorlal abonnemcnts : bdilion^ M£V 6'1 70. nic dc^ Chonlii-rg 7R?()C) Wrs-iifleb Til-] Q) £4 43 
lUdacdon el comrLade^iteiclBiira t 59. bd de ClBtlgny 78000 VersaiUea 
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S programmer 
5 un ordinateurest 
I dev^fiu pour v6U8 
un loisir, un plaisir 
une passion, sache? quR LIST a ete cree 
pour vous. LIST vous aide a tirer clavantage 
de votre ma16riel, a vous perfectionner 
dans la conception des programmes 
qui "tourneronr sur votre machine. 
LIST vous initie aux langages informatiques 
et selectionne les meilleurs livres pour 
progresser LIST vous informe de I'actualite 
et vous fournit trues, astuces et idees 
pour mieux programmer... 
Pouretre surde ne rater aucun numero 
et pour recevoir LIST choz vous, 
abmmez^vousl 



BUUBTIN 
D'ABONNEMENT 

a retourner a LIST 
(service abonnement) 
5, place du Cotonel-Fabien, 
75491 Paris Cedex lO 



Adresse:. 
Ville: 



Code postal: I LI l._U Pays: 



votre 



Veuillez m^abonner pour 10 numeros qu prix 
InurHfl^ /" avaritaflsux de 1 60 F* au lieu de 200 F. Je fats ainsi 
arclWW O© J" * une economie de 40 F sur le prix de vente au numto^j 

"^^^ # Je jofcn? nnon reglement indispensable libelle 

' irordredeUST. 




llque : 1330 FB ; Suisse : 50 FS ; Canada 4C ; 
pays: 210 FF 



Un editeur de secteurs : MOBBY DISK 

Thierry Le TaUec 



RETURN permet b saiijf d un tcxti? 
ou de valeurs hc^^adtrcmidles a la 
volee Dans ies inode^s nji^lt:^ 
hexa, tous It^^ oclets modifies appa- 
raiss**nt pn invert^ jusqu'a T^criture 
OU 1q lecture d'un secteur de la dis- 
quetle. 

ESC sort de ce mode de sai^ie, 

— rcstitue rancienne valeur cn cas 
d'erreui 

X anniilc toutcs Jes modifications 
d'un buffer. 

P autariF-c Ic choi>i dc la page me- 
inuHf qui 'i^n de buffer L'adresse 
de ce dernier i^sl indiqiiee en clair au 
bas dc Iccran On en changera en 
donnanl direclemen! I adresse aj da- 
vier. Par defaul. le buffet P-Sf m 
$4000, 

A noter i^u!!! est ggalem^ J>0$^€ 
tite Gteii^ ^ page 4u feirffef 
l^is^ par la eommantfc' P> en utiii- 
mvi tes %nes ^ ">", respecD- 
i^eKt pour durunuer ©u ammenter 
de $100. 



d*6p^^on fttathcur^use sur dis- 
quGtte certainGmenl Tediteur de 
secteurs ou "DISK ZAP ' || p^rmel 
Tafficha-ge a I'ecran e! la modificahon 
dps rod**? hexadecimaux contenus 
sur le disquetle |] dsL ^in^i possible 
d'iniervenir directement au niveau 
des secteurs pour recouvrer un. fi^ 
chier "DELETe", une disquette 
ne BOOTe plus, ou pour rendre ggk 
herent un enr^sttemeAt qyi com- 
porle une erreur, L'int^^ de ce type 
de programme ne se limlte pas £ la 
remise P.n etat des secteurs r fl 'de- 
vient peir exempl? E^Sa^ble SLltvte 
pr^cis^Tiient le travail du DC©. 

Parmi les plus connus. on peut cilei 
INSPECTOR, WAT50N el surtout 
DISKFIXER Cg dernier 2Hif^ ma 
preference, mais il lui manque ceitai- 
nes options de WATSOPJ telles que 
fe dflgassemblage et le choix de la 
page mi^dre 3 Mter. 

II etflft intejessaiil dt lenler dv faiie 
tenir en moins de les principales 
fonclions. En effet, le possesseur de 
carle IiPROM peut diurs avcpr ^ 
permanence d portfe de la HKrin un 
uBIitatT^ dont Pusi^Ke^ ^ V^\^jB ft^* 
quent sans diff^'^fe ch^^r '^eptifs 
la disquette. A vous de juger a le jeu 
en ualatt la chandetf^. 
Notcr que la version pubtice ici fonc- 
tlonne cn RAM et n'a done besoin 
d'aucune exten^n partlcuK^G: 

Apre^ avoir enlre et sauvegaide [t 
code-objet. le programme se lance 
slmplemflnl par: BRUN MC©BY- 
DISK. 

Examinons les cbwri^eifldt^ : 



Modes d'^ifHc^hagc^ 

B selection i-Lfc^ le mode d'effichage 
mixle. dans ieqiiel le contenu du buf- 
fer esl affichc simullanement 
hexadecimal et en ASCII C'est le 
mode d'affichagc par dfifaiit. En ral- 

sofl des ^meiKiQ^ 4e f sGran. seule 

une moitte- du buSer est affichi§e; on 
accede a la d^Jdeme moitie en de- 
placant le curseur au-dt?!^ Hps \\m{i>^ 
de la fenctre. 

H affiche le conienu du buffer en 

he>^dddmal fteulement. 

G affiche en ASCII fienlpm^Tit 

Y commute le filtre permettani de 
n'afficher que les caractefes en ASCII 
normal. 



Lecttire<ecriturc 

D commande Ic changcment de 

drive , 

R pfinm^ lia lectlife d\in secteur; ^ 
curseur se posftiorine atete sur k fty- 
m^ro de la pLste S indkjUfei' cti nej^ 
d&icoaL Si le num^ro en cours 
cofivt^t, feire simplennent RETURN, 
Ltl curseur passe alors au rumero de 
Scdeur que Ton controls df la menie 
manl^re Les fleches gauciie 2\ droite 
commandent ia lecture des secteurs 
pr^c^nt et suivant 




W recopie sue la disquette le contenu 
du buffer On indiquera les numeros 
de piste et secteur cuuiiut; dans I" op- 
tion lecture. 



Editioii d*un secteur 

t, J, K, M d^eplacerit le curseur res- 
perfivem^nt vers le baut, la gaucKe, 
U droite, le bas. Le rang de I'ocfet 
est affiche sur la liqnp supeneure 

; autorise la modificdliuii dt; I'utiei 
ou se trouve le curseur. Selon le 
mode d'affichage. on pourra ainsl 
entrer un caractere ASCII ou une vtl- 
leur hexadecimale 

T en mode ASCII Lommute l ecrtture 
en normal, inverse ou clignolant Le 
symbole ' en bas a droits dc? 
1 ecran reflate cet elal Leb caracteres 
mverses ou clignoiants ne seronl visi- 
bles que si filtre est supprime (se 
reporter h la <;ommcindti "V"). 



D^ftaASi^biear 

CTRL-D provoque.W ^^IfiE^^^Ttya^ 

de la page buffer La bane d'espace- 
ment (ait progresser d une ligne. la 
touchc RETURN d une pa-ge ecran 
(12 lignes). 

ESC sort du mode desossembieur. 

Hard-copy d'^fic^m 

CTRL-P vous donne une copie uii'- 

pnmante (sortie parallelcj de l^ficran, 
les caract^res inverses e\ clignotants 
&ant recedes avant impression. Cetly 
COTnmande suppose que voire impri- 
niante esl conn<?i:tec^ dans le slot 1 

Q perrTiet de quitter le programme et 
l^hd.la main au niveau du mor^teur 

NDLR une version ^^n RPROM est 

dijsponlble pour les lecteurs posse- 
dam une carte RAM/FPROM.' 
TIMERPORTS PARALLELES. Vous 
pouvez a ceT ^gard prendre coniact 
avec Tauteur: Mr Le. TaUec, 69 me 
Sauvcur TobeJem - 13007 MAR- 



frermit WjatilA en «• 
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«gOTfiinB 



Source Big Mac 

1 «K».**^Jt.->HtJt«J(»*»*3(*«»»«lHf 



2 <t # 

5 » Thierry Le Tftllffc * 

6 * m 



7 

9-« Utilitaire de l©cture-<cr I tune de 



ID 

11 KBD ;0 = RAM, 
I = EPROM 

12 DO EPRQM 

13 ORG 

14 ELSE 

is iDf?0 «eooo 

15 FIN 
17 

t9 » cpnstantesi 
19 

20 LST OFF 

21 FRANCAIS KBD 

22 DO FRf^NCAIS 

23 LST ON 

24 trackpos - 7 

25 sectpos = ly 

26 bytepo-s = 2*=> 

27 vol pos = 30 

28 L5T OFF 

29 ELSE 
^ LST W 

31 traclcpos ^ 7 

32 mectpos * IS 
byte pos = 2? 

34 -uolpos = 38 

35 LST OFF 
26 FIN 

37 LST ON 

39 bu-fpcs = 2 

39 CR ^ *3D 

-^0 Ctrl_D = *S4 

41 ctrl_P = *?0 

42 ESC - 498 

43 « 

44 temp = *OjJ 

45 cu^CH = *Ca 

A7 df 1 tyal #19 

49 val = *1A 

49 d1 gnum ^ *i B 

50 mask » »1E 

51 byte = «E3 

32 display = *EB jO=mixte, 

l = he^a. 2=ASCn 

53 f I I t&T- = *EC jSOO-o-f-f , 

*80=or 

54 CHt^mP = *ED 

55 b^^fr =^ «££ 

36 V -Ps -t = ^ EF 
bM-fptr = *FA 

53 ^L.tF = «20.0 

39 E0UF = *40OO 

M UNDTOP = *22 

62 UNDHTM = *23 

^^3 CH = «24 

64 C'-J - *25 

65 Bi^SL — 428 

66 BASH s «29 

67 GBASL - «Zd 

68 CBASH w 427 



69 LENSTH - »2F 

70 IM^LQ *a2 

71 YSi'^p'l • *33 

72 PCL » ♦3f* 

73 PCH %3B 

74 RUTS = 4307 

75 6ETr06 = 43E3 

76 KBD = SCOOO 

77 KBDSTRB = *C0 1 

78 3PKR = $C030 

79 :mS;TDSP = 4F3D0> 

80 PRBLNK = 4F94A 
BI PCAOJ = *F953 

92 WIT - »f=^aF 

93 TAsy >=■ *FeSB 
54 ^^LC 4F%c:i 
83 HOME - *FC53 
36 CLREOL = *FC9C 
87 CROUT = 4FD8F 
39 PRBVTE = ^TDDA 
39 COUT = *FDEO 

90 5ETN0RM = 4FE34 

91 OUTPORT = 4FE95 jPRttn 

92 * 

93 I OB - $1GQ 
9^ SLOT lOB+l 

95 DRI^E =5 I,^^*2 

96 VOLUME * 

97 TRACK ^ ioe*4 

98 SECTOR » ioe+S 

99 USRBUF := lOB + a 

100 CMDCODE ^ rOB+l2 

101 ERRCODE = I OB* 1 3 

102 iv'OLFND = lOB+l 4 

103 SLOTFND = IOB+15 

104 DRVFND = I0Bti6 

105 * 
106 

107 TR 

108 AST 32 
iOP LDX »t*FF 

lU Tics tinltUTis 
» T a nMe 

11 X STX mask ic*ract>r» 

112 STX filter i^fMr* en 
se rv i -ce 

113 I NX 

114 STX byte 

1 1 5 STX di spl ay jaf^ ichage 
ml XtC 

lid S"n< ba^» ;adre«e& d 
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BONJOURLES PRIX!! 



Carte langage 400 

Carte 128 k ram 1550 

Carte 80 colonnes 700 

Interface s^'e 520 

Super serie 1 000 

Interface parallele 380 

Grappler+bufferlfik 1350 

Carte modem 2200 

Carte Z 80 410 

Wildcard 400 



HOS Piffle sohtf™ 

Speech card 320 
Carte horloge 500 
Joystick 165 
Venrtifateur 280 
Controleur de drive autO sWftc^ 13/16 370 
Microdrive 3" 1900 
Moniteur vert 12 " 950 
DisquetEes 5^ 1/4 S.F7S.D. ^ 1 bdfte 140/bolte 
Disquettes 5" 1/4 S.F./D.D. par 1 borte 17S/boKe 



AU4KS5US, NOUB CONSULTER: 



Carte bleue et euracard acccptces 

Vente par corr^pondancB: nous consulter. 



Computer 3 

3, rue Papillon 75009 Paris - Tel.: 523,51.15 

(metro Poissonniere) ouverture du iundi au samedi de 10 h a 19 h 30 
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Les fleuves de France 



LEnselgneniGnt Assiste par Oidina 
\euT [EA.O. ) *?st b IcT mado rictm_'llc 

programme d'^ducaiioti sut it-s fku 

U procjtdiiSftj? E.A.G,FLEUVE5 ^si 
ecrit enlr^reTTient en Basir dnnr Wi- 
lement modifiahU'. oi propo jf [i par- 
tir d'uiie tdfl^ cIl' l-i-.vir.' rr\] 



ItLict' dun fleuve- d'en fourrir le 

progi.ijumi.' n*.' 
vous demand-e que \{) mujm') civrini 
d*? ^"^iireJer i?t d affkht^r votrs? ^co!;? 
Poul imh^ittabli?^. il n?^^(i.'ra la po^,- 
sibiltte d'tiuyiTi-iiit^T li' ii' imfiK' \]e 
n*:ijv(^s disponibl^s (bl) daufc?ll*?mi?nt). 



Joseph Pino 

Fiect'i'-ite '.iiicuri ■ininenlciti u |ffiilj(.u- 

liei U; plLj^i pLiiibJc sera 6e rt?nErt?i 
toiitf-s Ji?^; DATA ^1 uous n auca pas U 
disquect*^ de Pom 5 

IMt* pptitp collt? flvanl cnrnmen' 
rt'T save^-vou^ ou Irouvent le 
Bla^^r et la Tmyere ? 



Programme E.A.O.Fleuves 

100 REM £.4-0- ^<MSRiU>HIE 

110 HOME ; INVERSE ; PRINT SPCt 41 J ; : 

NORMAL : PRINT S9C< 3R) ; : IKVERS 
E : PRINT " ";: NORMAL : PRIWT " 
E.A-0. [itOGRAPHIE Cfl2 FLEUV 
ES ";: INVERSE : PRINT h 
ORMAL ; PRINT 3?Ci 3S) ; I INVERSE 

; PRiHT SPC( 417; HQBBAU : pmvt 

T 

120 tlAV&R !- 49iS2SItBt^te ^ 4S16ilTT3rfCL 
R » 492Sf2:aiSCJt - 49237: VTAB 10: 
HTftft 1; I>1MHT " Voui«3 voua qu« 
lquO» wplicat Ions" ; VTAB 12: HTA 
B 18: PRINT "< N >■": VTAB 12: HTA 
B 70: r.PT US 

ISO IF W0 < > "0" THEN 500 

140 VTAB 3: HTaB i: PRINT " Apprenez le 

nam dfi& fleuv«« FRANCE et dm 

150 PRIHT SPCf 40j: prist " Vou« t 
^pmrmx mu clavisr 1« nom du crour 
* d^9«U qui cllsnota «ur Itt ewt«i 

160 PRINT ; PRINT " J« voub dsmcuide 

iO nons «t jft vous donna las 10 
raponsflft . " : PRINT 

170 PRINT '* 5i vuus rapondoz '7' 

comna non .^eroviena en page HGR2 
pour la cart-a." 

leo PRINT : PRINT "TapBi 'C" pour voir 
la cart© conpleta."';: COSUS 10000 
: IF tfS =^ "C" THEN GOTO 1010 

500 REM DE&UT •*» 

51Q TEiCT : R0i(E ; Vt*ft 1: HTAB 4t iHVER 
3E : PRIBFT * ISOTS NORMAL : H 

0R2 : Gd^Ug StOOOi GOSUB 5000: GOS 
OB 4000: FOR T « 1 TO 9i COSUB 20 

00: GOSUB lOOOO; GOSUB 9000: GOSU 

B 5000: GOSUB 400O: NEXT 
520 GOSUB 2000 ; GOSUB lOOOO : GOSUB 90OO 

: G03UB 10000 
530 TEXT ; HOilE : VTAB 2; HTAB 3: PRINT 
'*Vau« 4va:z bien r«pondu " ; EX j " £ 

oi» aur 10"; PPINT ; PRINT ; HTAB 
5: PRINT '*VouIaz vaus rvcoRManca 

r (0^0U1> GET Wa; IF W» - 

" THEN RUN 
540 VTAB 14: HTAB 15; PRINT "AO REVOIR 



I"; PRINT : END 
1000 REN TOUTE LA GARTE 

1010 HGR2 : GOSUB 3000; FOR N - 1 TO 39 

I GdSUB BOOO- NEXT 
10^0 GS^ Wmz RESTORE :H - 0:N2 ^ O: FOR 

1 * o m stnizy - o: next : goto 

560 

2000 REH CORRECTION 

2010 TEXT ; VTAB T • 2 * 1; HTAB 1: PRI 

NT T;: HTAB 3: PRINT " ? : H 

TAB 3r INPUT " "iRa: IF R» - "7" 

fREtr ^sue ^<>Goi 40001 cot 

2010 

2020 TEXT : VTAB T • 2 * 1: HTAB 1: PRI 
NT T;: HTAB 4: PRINT A^; SPC< 20> 
;: If R9 * A3 THEN VTAB T ■ 2 ♦ 
1: HTAB 19: INVERSE : PRINT " EXA 
CT " ; ; NORMAL ; PRINT 3PC * 10> ; ; 
EX ^ EX - I : GOTO 2040 

2040 VTAR HTAB 28: PRINT "Nota : ";E 
X;"/";T; : RETURN 

3U0O Htn TRACER LA CARTE 

3010 G031PB 900O: HCQLOR* 3:X0 « 40;YQ - 
- 5: FOR I « 1 TO REA1> X.Y; 

HPLOT X ^ XO,V * VO 
30^ READ X,y; IF X AND Y THEN HPLOT 

TO X - XO,Y * to; GOTO 3020 
3030 NEXT : RETURN 
400O REH FAIRE CLIGNOTER 

4010 GOSUB aOCO; HCOLOR^' 3: GOSUB fiOOO ; 

IF PEEK (CLJ > 127 THEN POKE S 
B,0: RETURN 
4020 UCOLOR=^ 0: GOTO 4010 
aOOO REM riRER AU SORT 

»Oia NO * 59^ 
Nbrw Qua«tl0^ 

5020 N = INT < RN& (1> - N0> * UNiT) - 
N 

503O IF T - THEN 5060 

5040 FOR S = TO T - I! IF N * NCS> TH 

EN 5 =- T - ir NEXT : GOTO 5020 
5050 NEXT S 

5060 VTAB 24: HTAB 10: PRINT SPC< 22> : 
RETURN 

&C^O A* * ^SOtmE"-. IHPLOt I65f,24 to 161,2 
7 TO 160.^ TO 150,24 TO 142,18! 
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RGTURM 

6020 ft* - "EUPE"; HPUOT 129,53 TO 13a, 57 
TO 140,53 TO 137, 4g TO 138,46 TO 
134,40 TO 135,37: RETURN 
6030 M - -LOING"; HPLOT 164,74 TO 159,7 
2 TO 157,67 TO 15fl.64 TO 156,61 T 
lSa,5a: RETURN 
6040 AB =- "YONNE": HPLOT 175,85 TO 174.3 

4 TO 172,6-1 TO 16^/^7 TO 171,74 T 
169,67 TO l&5,to5 TO 165, feO TO 1 
63,57: BETURM 

6050 AS * "ARMAKCON": HPLOT Ifi4,d2 TO 16 
3,7a to 183,77 TO I74,fi6 TO 160,6 
7: RETURN 

6060 A& =- "AIJBE'': HPLOT 193,72 TO 183,61 
TO 181,55 TO 174,52 TO 171,53: H 
ETURW 

6070 AB « "MARNE": HPLOT 196,68 TO 195^6 

fl TO 195,64 TO 192,63 TO 191,52: T 
18:5,51 to 179,43 TO L6S,.41 TO 1 
63,45 to 162,44 TQ 154,49 TO 152, 

47; RETURN 

6Oa0 A* = "OTSE": HPLOT 177,22 TO 168,24 
TO 165,29 TO 161,31 TO 158,33 TO 
147 ,42 - RETURN 
6090 AS * ''AISNE": HPLOT 192.45 TO L90,4 

5 TO 185,33 TO 178.31 TO 173^35 T 

164,35 TO 158,33: liETUKH 

6100 AS? = "ORNE": HPLOT 120,51 TC 117,49 

TO 113,49 TO 110,44 TO 114,37; R 
ETURA 

6110 Ad ' ''RAKCS*-; ffPtOT 79,57 TO fl3.Sfl 

TO 97,57 TO M,52: RETURM 
BX^p Ad ' "AULBE": HPLOT 65,53 TO 62*5? 

TO 59, 5S to 54,56; RETURll 
6l30 A» ' ^'BLAVET": HPLOT 68,55 TO 72,59 

TO 72p63 TO 67,69: SETURW 
6140 A5 J "VILAIJJE": HPLOT 103,60 TO 90 , 

$a TO 66,71 TO 79,75; RETURN 
6i50 AS = ■WAIKET HpLOT 10a,75 TO 107,7 

8; RETURN 

6160 AS - "HAYEHNE": HPLOT 114,54 TO 113 
,55 TO 110,54 TD 107,56 TO 105>b2 
TO i06^70 TD 106,75: RETURN 

6170 M - "SARTHE"^; HPLOT 124,52 TO 122, 
54 TO 116,56 TO 116,50 TO 119,67 
TO lil,M TO im^TSz RfeTOHK 
61^ A* » "LOII*-: HPLOT I33v5a TO 136,60 
TO 134,63 TO 130,70 TO 122,72 TO 
115,7:^ TO 106,75: RETURM 
6190 AS = "NIEVRE": HPLOT 165,80 TO 162, 
88: HETURW 

6200 Ai= = "ARROUX"; HPLOT 182,86 TO 173, 
53 TO 176, 100 ; ffeTURH 

6210 A« ^ "ALLIER": HPLQT 171,135 TO 1&7 
,128 TO 165,115 TO 168,109 TO 166 
,97 TO 161,93 TO 162.88; RETURN 

6220 A» =t "CHER": HPLOT 153,112 TO 155,1 
67 TO 155,97 TO 150.92 TO 149, S6 
TP. 14S^e2 TO 125,79: RETUim 

6^3Cf kB = "lirtJRE": HPLOT ISO, 100 TO 146, 
99 TO 144,94 TO 142,92 TO 135,90 
TO 129,^3 TO 120,83 TO 119,81: RE 
TURH 

6240 A« = "VIENNE-": HPLOT 147,117 TO 143 
,116 TO 136,112 TO 134,114 TO 126 
,112 TO 126,100 TO 124^96 TO 124, 
a7 TO 118,84 TO 116,81: RETURN 

6230 A« = -CREUSE"; HPLOT 148,113 TO 1^8 
.109 TO 140-101 TD 140,99 TO 137, 
97 TO 131,95 TO 127,38 TO 124,87; 
RETliRN 

6260 A» » ■•SEVRE MANTAISE": HPLOT 103,96 



TO 102,93 TO 94,S* TS 93,82; RET 

URN 

6270 AS = -GHARENTE"^; HPLOT 125,115 TO 1 
19,106 TO 117,116 TO 114, lift TO 1 
05,116 TO 104,112 TO 96,111; RETU 
RN 

6280: A* * "DOROOGNE"; HPLOT 159,119 TO 1 
34,11^ TO 153,12? TQ 133*1^5 TO 1 
28,135 TO li;^,t3s TO 10l5,.iads RET 

6290 A9 "'VESERE'M flPLOf 147,120 TQ 142 
,120 TO 137,124 TO 137,129 TO 134 
,125 TO 128,135: RETURN 

6300 AS =- "ISLE": HPLOT 134,117 TO 130.1 
20 TO 127,128 TO 124,12*1 TD 121,1 
31 TO 111,131 TO 110,135; RETURN 

6310 AS = "LOT": HPLOT 172.142 TO 163,14 
5 TO 155,140 TO 142,144 TO 130, 14 
3 TO 128,145 TO 123,144 TO 119.14 
7: BETfll^ 

6320 A# - *'TftUyERE"! BPLOT 170,137 TO 16 
7,139 TO i6S,lS4 TO iSa,43S TO IS 
5,140: RETURN 

6330 A« = "TARN": HPLOT 173,145 TD 165,1 
47 TO 162,152 TO 157,154 TO 145,1 
56 TO 140,158 TO 135.152 TO 130,1 
52: RETURN 

6340 Aa = "AVEYRON": HPLOT 162,147 TO 15 
a, 145 TO 154.147 TO 146.146 TO 14 
5,151 TO 135,152: RETURH 

63l!k^ A9 = '"ARIEGE": HPLOT 141,186 TO 143 

,185 TO 142,182 TO 139,180 TO 139 
,171 to 136,169 TO 136,165: BETUR 

6360 A« • "SAVE"; HPLOT 122,173 TO lZ?Vl 

69 TO 134,11^1 RETURN 

6370 AS » "GERS": MPLOT 120,17^ TO 123,1 

67 TO 124,158 TO 123,155 TO i»,l 

50: RETURN 

S360 AS ^ -BAISE": HPLOT 118,176 TO 117, 
172 TO 12Q.168 TO 119,148; RETURN 

6390 A3 ^ "ADOUR"; HPLOT IIS, 17© TO ll3p 
175 TG 114,172 TO 113,163 TO 108, 
159 TO 95,160 TD 94,164 TO 90,165 
TO e9,lfi4J RETURN 

6400 AJ> « •'AtlDE"; HtPLQT 147,185 TO 151,1 
72 TO 16S,l70l BETUHII 

64i0 Aar = "HERAULT": HPLOT^ 170^151 TO 17 
3,156 TO 169,165 to I69,176r RETU 
RN 

6420 AS ^ "GARU"; HPLOT 173,148 TO 178,1 

49 TO 181,155 TO 187>155 TO 138*1 

57; RETURN 

6430 AS = "ARDECHE": HPLOT 179.139 TO 18 
4,141 TO 182,145 TO 188.149: RETU 

RfJ 

6440 M » "5A0NE": HPLOT 207,62 TO 205,6 
5 to 5b5,72 TO 197,80 TO 196,85 T 
IM^aS TO 189,92 TO 191,97 TQ 1 
M.llO TO 11«0/li2 TQ 1TO,.1W; RET 

iim 

6450 A* " "TJOtmB^Z IflPLOT 210,91 TO ^0*7 
8 TO 218,78 TO 213,75 TO 2^,84 T 
197,89 TO 191,89: RETURR 

6460 A3 = "AIN": HPLOT 208,92 TO 203,93 
TO 196.113: RETURN 

6470 AB = "I3ERE": HPLQT 221,120 TO 213. 

117 TO 215,118 TO 214,115 TO 211. 

118 TO 207,122 TO 204,126 TQ 202. 
124 TO 194,131 TO 191,131: RETURN 

S4^ AS =" "ARC": HPLOT 223,1'^ TO 214,12 
S TD 212,123 TO 211*118: RETURN 
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6*W M » "DRAC"i «&LQT 2i.^^X3& TO 

2^ TO 203,1:33 TO 204, 12£- R^URN 
Adi - "C^OHE": HPt-OT 204,142 TO 200, 
140 TO 199,136 TO 195,136 TO 190, 
137: RETUPN 

651<> K» - "DURANCE": HPLOT 213,132 TO 21 

7,13^ TO 217, 13e TO 213,143 TO 21 

0.142 TO 20a.l45 TO 210.150 TO 20 

7,159 TO 201,161 TO 190,155: BETU 

6520 kG ■ "VERDOM": HPLOT 218.147 TO 218 
,XSS TO 210,159 TO 207pl593 RETOR 
K 

&530 AM » "VAR": HPtOT 221,147 TO ^.15 

4 TO 22d,l54 TO 23a,a62i 
S540 &m ^ "RHIW"; HPLOT 240,72 TO 227,72 
TO 227, &0 TO 230, 4d TO 23S,40 TO 
238,33 TO 237,22 TO 233,17 TO 22 
TO 225,12 TO 222, lO TO 217,4 
TO ?1 f^, O: RETURN 
A& - "ILL"; HPLOT 225.73 TO 224,72 
TU 22^, TO 227, TO 225^50 TO 
230^4fl: RETURN 
&5&0 AM - "rtOSELLE": HPLOT 218,66 TO 21b 
,67 TO 203,50 TO 206,47 TD 205,44 
TO 206,34 TO 209,31 TO 215,24 TO 
31^,20 TO 223, 12? RETURN 
«7q A$ •- "MURTHE": HPLOT 2ia.59 TO 215 

,!M TO ^QJ^SQ T0 266,47* RETliSir 
fiSaO A« - "HEUS^"! aPLOT 200,65 TO 199,6 
4 TO 200^30 TO 192,35 TO 192,32 T 
ift<^,?7 rn 187,28 Tn ift4,:>:? rn i 

66,17 TO 187,12 TO 197,6 TO 199,0 
: RETURN 

6590 Afl ■ "ESCAUT'^: HPLOT li^5,22 TO 163, 
22 TO 165,15 TO 168,15 TO 168,12 
TO 167,9 TO 165,6 TO 173,0: RETUR 
H 

7000 REH CARTE DE FRAWCE 

7010 DATA U5>.B^100,10,100,20,102,23,99 
, 22, dd, 25, 93, 28,86, 29, aC, 33, 78, 37 
,83,38,74,42,61,40,59,36,60,34,59 
,32,54,34,50,32,51,39,54,43,54,54 
,57,56,51,57,51,54,49,54,46,57,46 
,55,41,54,37,57,33,50,26,50,24,53 
,18,52 

7020 PAT A 7,54,7,58,l3,5S,14,61,a,6l,l3 
,63,13,65,7,65.11,67,12,693 11*71, 
14,72,15,69,25.75,27,74,30,75^28. 
76,29,78,32,76,32,76,36,78,33,79, 

34, 81, 39, 80. 3a, 66^41, 86, 44, 84, 49, 
87,44,36,413, a9,46V»Sl,43, 95, 47, 103 

,37,ioa 

7030 DATA 56,116,55,122,60,124,63,128,6 

5,125,61,123,57,124,54,143,57,141 
,^a, 144 . S&, 145 ,55, 144,53. 146,49. 1 
69,46.172.44.172,51,180.63.185,69 
,185, 71 , 187 ,82, 187,62, 164,100,190 
,100. 193 , 105, 195, 117, 19S, 120, 193, 
125,195 

704Q DATA 125, 192 , 123, 191 , 123:. ISO , 125 , 1 

78.129,175^30,176,139,169^141,17 



1 >l«,a>a, 14? p 172, 147, 174 , 15»* 173 
, i»>l76,i59, 171 , 1S5,1;73;461 , 174, 

iio,i76,i6a^ieo,i77,i7a,i7a»i:^,i 

ao, 176, 181,171, 163, 172, laa, 167,18 
9,164 

7050 DATA 191 , 165, 195, 1&2. 195, 154. 135,1 
53,162,147,184,140,179,134,135,13 
0,185,125, 180,118-132. 115-180. 104 
* 175, 104, 169, 109, 0,0, 180, 104, 176, 
101 ,171 . 104, 169, 109, 16 9, 101, 180,8 
a, ia2,a3, 181, SO, 135,80,137, 77, Ifia 
,75,192,55 

7060 DATA 197,45,195,45,188,44,185^42^1 
ai > 44 , l76 , 4i , 174 *3vi n ,36 , 169^^ 
,164,36, 159, 34, 156, 36, 147, 29, t4e, 
22,141,27,137,27,137,20,135, 17,13 
1,19,130,16,128,14,127,14,125.15, 
123,14,122.9, 119, 10,116,7,1 15. 5.0 
rO 

7070 DATA 1 47 , 82 , 1 44 , 7 2 , 1 37 , 67 , 1 35 , 60 , 1 
31 .58, 123,62, lis ,63 , 11 1 , 5£. , 1 12,52 
,10/,40|10^,49,t?5,4:*:,dd,^6,0,0 
70ftO DATA 141 . 140, 139, 141 , 136, 139, 136 , 1 
32,138,132.141,124,137,115.136,10 
5,122,93,121.88.119,86,120,83,116 
,7a, 104^72, 94 ,82,85,84,79,86, 76,8 
6, 70, 82, 67,83,65^84,58,83 53,9744 
9,87,0,0 

7096 DATA 89,188,86,189,83.180,86,179,9 
2,176,96,170,94, 164,90,157,85,153 

,79,153,79,152,79,150,74,146,70,1 
46,S5, 135, O,O,2O0, 101 , 194 , 106 . 191 

,106,183,110, 180,104,0,0,16^,109, 
167,110,163,122,154,118,156,118,1 
50 

7100 DATA 119. 150,125. 149 . 127, 151 . 136 . 1 

51,136,150,142,146.148,146,154,15 

2,159,150,160,146,162,148,165,144 

,.l6aa41,i71,0^0,144,,16.a, 145,172, 
6^0,, 14ft^l65.15a, 173^0,0 
8000 1^ ArGUIttAGE oft^ 

8010 IF N > 40 TH£H ^2 = H ' 40: ti^tO 8 
040 

8O20 ON N G03UB 60 1 , &020 , 60 30 . 604O , 605 
0,6060,6070,6080,6090.6100,6110,6 
120.6130,6140,6150,6160,6170,6180 
,6190,6200,6210^6220,6230,6240,62 
50,6260.6270.6280.6290.6300.6310, 
6320,6330,6340,6350,6360,6370,636 
0,6390,6400 

6030 REJURH 

8040 N2 GOSUB 6410, 6420,6430,6440,64 

50,6460,6470,6480,6490,6500^6510., 
6520,6530,6540,6550,6560,6570,6^ 
0,6590 

8100 RETURS 

9000 REH # VOIft H&ft2 Sk»S ETPACER • 

9010 POKE TX,0: POKE HI,©; RETURN 
10000 VTAB 24: HTAfl 10; PRINT ''Tap«z un 
a tpueh* OET W»: RETpRII 



St vWis^t^ dans la ^ el oubHez d'acheter Pom's, 
envoyez-nooa une & et aboftiiei ^njus sans ^ 



InuUle de vous r"(S>, 1m aulrw numtroa dc Pom'o 
sont enctrre dispooiblos avec teurs dtsquettea I 



FlWSrf'aint est svant tout un lo^ciri de 
re^alisa+ion dd dm^r^, foncH.onrwit sous 




ai^ec ur^ peu d'habrtude ... 

er/ cas derreur, il g d Id ressource 




i3n peyt esalMient travalller par faches, 
avec la brosse. 




On peU>t sussl *^aporiser <Jes petits nuages 




Bi«n fiur on peut ecrrre: on dispose 

de pltisieurs typM ue ^ar«wter« 

Mars pas de caractsras Accentues 



Des formes pretieflnies permettent de 

tracer des Figures qeorrietriques, '.-ides 

ou pleines^ suec decors usnes Mais on 
rw peut pas rempUr apres coup 





Tl evic:fe enfin das foric+ions perme+t^nt 

de trdvdiller au niyeau du point, ou de 
trontrc^ftr Ja po^^on dte^'n jiaihE la 
page, dutifiser une orilJe pfUir .certains 
traces^ ...^ «-t bien sntencki dss fonctions 
el^ gestjon die disque. 

Une lacune: 

Tabsence d une foncTion 
"Catalogue ' : on ne sail 
Jamais ce Qu'fl y a sxtr 
un disQue 

La fonction impression EXIGE fimprimflntft 
Iina^ft' .WMter^ Pour une autre imprimante, 
il faut trahsiter par le disque. 




Un produit bicn agreable 
malgre queiques lacimes. 

La version etudiee fonctionne sur les 
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Gestion de fichiers par RWTS et 

DOS 3.3 



Gerard Michel 



Pom's a dej^i coiiMLtt; plu^it'urs am- 
cles Avw mtnhotit'^r ck^ ge^ition (\^> \\- 
chier t^n DOS 3 3 ct. apr^? unt; lon- 
gue post ddEis cene sene. nous vous 
en proposons un autre, un pea plus 
compiejcG dans sa mise en ocuvrt* 
mais qui d<?vTait uous foumlr. du 
moins 1 esperons-nous. un syst^me 
relativement r^pjde soyple pour 

II est de noloriete pnhliqiip <\y\9 It? 
DOS so charge en memoirs a pcirtir 
d'urt disqyt?nt' lor^que Ton mt?! 
l Apple ^oijs tension on que i on 
"boote" ^ chaeid. par PR#6 par 
esemple. 

L'implantfltinn Hi: DOS Slu* une dis- 
quette resulte, de mani^re generale. 
de s^on initial isatJon par ta commandi^ 
INLT. A Tisfiup rie rette op^jitiDTi, l?s. 
pistes 0. 1 et 2 de fe disquette 
contier^nent le DOS et ne sont plus 
accessibles pour b 'iauu^arde de fi- 
chiers ou programmes. 

En fait, cette pEeseiic.e du DOS sot" 
touies les disqijettes ixmsfikje un 
lijvp iniilile. Plus, jwrfeajfe^^ent en 
mEitiere de g^Hbfi de fehieft. on 
peui Litiliser frequennmeBil une dis- 
qii^tte "Programmes", qui se place 
dans le lecteur 1 et ^ssiiit tyeilfMJtrrU 
le "bool" du sysleme. el une dis- 
quetle reserves plus sp^ci^ilemeni a 
la sauvegard*? dt^s [idiii^rs. placee 
dans le lecteur 2. Sur cette seconde 
Hisquette, le DOS ne represenle 
qu une perte de place pour le stu- 
ckage des inforimtlons- 
De meme,, si Tpri .r^^rnpfel^ qu'Uo^ 
sGule disqu^lfte pour pru^arnmes ct 
fichiers gX ^ Ton ne dispose qiie d'un 
5eul lector; U ^ tbi^fnaft possLblc 
de charger le tX>5 en memoirtj a 
partir d'une autre disquette. rempla- 
c^c immedialement apres par celle 
necessoire aus traiteineiits. 

I! -^t 'ciil dune possible d'explolter les 
3 fbtes proteges du DOS pour v 
stocki'T dijs informations utiles a la 
yL'^iinn de fichiers : nous vous propo- 
sons (j V placer la lablp dp rpfpT*?Tice 
d<^s ■-►nr\'yi^tt-omen[i^ d un gros fichier 

de d(Muu"e? Notons de suite que 
ceci ne periuitera pas le fonctionne- 
ment du DOS pour Ic maniement de 
prograrriineb ou fichiers sur la m^me 
disquette. puisque les pistes f), 1 2 
sent de loMtc %-e>n ccmt^reps 
commtr ocmpe^ a Tissue de ifHTs 



yii ntf risque done pas le^ ecra- 
ser en cours de rraiT<?mert. Par un 
POKE approprie ci l adres^e 44723 
(voir Pom's 1 ] J. on pt^ut meme pro- 
leger ainst plu'^ de trni'; pif^t^^^ pout Ja 
sam^^rde d une table de f^l^enos; 
t^l Tiuus i; revn^ndrons ulterieUreniBnt 

Organisation de la table 

Nous stDckertFns dans cette table 
troi5 types d'tofc^afions'i 

• La tl'acefe^ icteritlflaiit cliaque 
enregistrernenl du ftchicr de don- 
nces et permettant d'y acc^der di- 
rectement fie nom d'un dieiil. un 
numero de dossier...) La longueur 
de cetti? si^ra fixe, bomee ou 
quelcoiique, tiu (_lujix du pro^grarn- 
meur. De plus, les homonymes 
[plusieur^ cles identiques) seronl 
occeples 

• Des informations annexes". Sous 
fotrtlG <i'urt certain nombre d'oc- 
tets potivant servii de Liiierey pour 
des recherches rapides dajis' 1^ 

coc^cai^n ^ situdlion dt? i&- 
iTiille,,.^ 

• L'adresse de renregiBiremenl cor 
respondant a la cle dans le ficliiei 
de donnees Ge dernier est un fi- 
chier a acce? diTt^ct DOS 3.3 staiv 
dard Dans h EtiUle de leleieuLt', 
cette adresse occuperci deux octeis 
(cea autotiee des adtesses de a 
65535^ ce qui est i^m que bufft- 
santl 

Un element d-t? la table de reference 
se presentera done de b bj^n sui- 

— Lofismir tbtole '^tlS + M&:»^n^ 
Hons annexes" : ] octet 

— l.ongiipur de la ci^ seule : 1 octet 

— Cle d'Eicces : Nl octets 

— Informations annexes : N2 octets 

— Adre<is^» Hp 1 Vnrenpstrement COT- 

respondnnl ■ 2 octets 

Gestion de U table de reference 

Poui utili^^^r ie^ pi-ttft du DOS. il fant 
y (i.i . ]. 1 direttejuenl par la c^l^bre 
roii[ine RWTS, qui permet dfi lire r»u 
d ecrire un &ec!eur qui.^lcon^UG tf^ 5e 
disquette, soil Zbb utltfts. 
La table de r^f^rence sera done de- 
(toupee en un certain nombre de sck- 
teurs. 48 (3-16) au iikWimum sJ X<m 
Utilise !es Irols pistes du DOS. niw^-. 
rot^s d© a 47. rfeiis apF^onS 
fjffl ie numero du demier secteur de 
cte exfrfottable. 



L'appel a RWTS \evd a partir du 
programme? Appk^ofl de trailement, 
landis qu'une petite routine en as- 
sembleur s'occupera de la recherche 
d\une .de doricee a i'intSripuir d'un 
secteur de chorg^ en' m^moire 
cbns buffer, 

Une telle recherche [uujours plus 
rapide lorsquo les cles sur tesquelles 
elle ix>rt(' ^onf dL^^s^es dans un ordre 
quelconqL;^ . 1 occurrence dans 

Uordre ,.de$ codes ASCU des cai^rf^ 
te^ cOTiiposaiit k Bi rmraradie. 
les operations de classement sont ge- 
n^ralement longucs en regard des 
deldii d'tiltenle accepiables dans le 
cours de I exploitation normale du 6- 
chi^.T 'A it est done preferable dc les 
supdier de tt^lte derni^re. 
On peui ainsi sc? ntiuver, a un instant 
donnc, avec deux types de secleura 
de clSs: 

• Des secteurs de cles classee^, dans 
lesquels la recherche sera plus ra- 
pide N i"?us fippelernns N7 thi 
rnC'io du dernier secteur de cles 
class^es, avcc NZ compris enire 
et NN 

• De'i ^ectcurs de cles "en vrcic ". 
plat:^^ a la suite des premiers, 
dans lesquels \&s nnuut>IIes des 
ont eie stock^es ^mplemenl dans 
Tordre chronologSque de leur en- 
tree en maGhinc La recherche 
S€m $i4deram^t plus lente sur 

ces ^Gteurs. tt^ m eyite 

d'lmposer h Tutifisateur un d^lai 
de classement a chaque nouvel 
enregfstremefit La van able TT 
contiendni 1p niimero du dernier 
Eccteur de "vrac ' TT est done 
compris entre NZ-hl el NN. Des 
que TT atleint NJM + 1, la capacite 
de slockage des des est satur^. 

Un petit progiamme, iiidfcpenddiil 
des proyrammes de iraitemenl pro- 
premerst Jiti, perm<?ttra h Tutili^^iteur 
de recldsst^i l^s de^ vfdt a Tinie- 
neti: de^ cle^ classees et de reconsti- 
tui*r une table de reference compo- 
^ei? uniquement de secteurs de cles 

dass^es. Certe . opgtattoii sera par 

cons^uenf rSadisSe sur I%itiattve de 
TumSsflteur, avant de proceder a un 
listage dlt fichier par exemple. ou 
d^S qUG les temps de recherche sent 
teop det^riores par It: noiiibrt^ de cles 
"■^ vrae*' a explorer, 

Gt cMte la meSuVe oij !a retfierciie 
porte sur un sect^ur S la fois. il est 
bon de savoir si possible f^sl 
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celm qu'il faut charger dt? preference' 
fti jnenujiri:. l t'sl diit' Lflui ddns 
iequ.*?! on tiuiriit iini^ ^ hanr^^ Irnu- 
yer b cli? qui noLi5 Lnti?[Cf:jst? Pour c' 
faire, on coriservi^ra d^ns un lahitviu 
N$(hiN| la demier*? de de -chriqiie 

PONT DUPONT est la derniert- de 
Stqckee di^ns te secletii: 0_ el ainsi 
adte. St Ton chcrche uhg cjud- 
conque XXXX>0(, on lira en ni^- 
moire le dCrtiiCr secteur 5 pour le- 
quel XXXXXX Nt(S} Si aucut^ 

secteur dasse ne repoiid a celte 
condidon. on chmhtfra alors un se- 

de iii^TTit' ?h l\.rn !U' trotivL' pti^ dons 
le secteur cla^^e polentiel 5, 

Mchlers manlpules 

itG peuf g^rer qu'un mil ficW^ de 
doriiic*^s par disqu^e. P^r contTe. 
d'autres fichiers de loutcs sortti^ pcu- 
uont dtrc utilises conjointi^ment en 
DOS 3.3 sianddiid En panlculier. 
di?ux petits hchiers annex.!?*^ snnJ n^- 
cGssaires S la gcs^on du systeme 

• IJn fichieF eontpnanl parame- 
tnes de la tab\e de reference . der- 

ntef seetetit^ d^sse (NZ). 4eiTiier 

adre^se ottribii^e d un. enregistre- 
ment (NF). premier octet libre 
dans 1g sedeur dt> vr^ar rouri 
(001. s(alut df Li toble ^is-^i-vis 
du classemen! (IC. qui v^iui (1 
Tmit trsi £:lflRi;p, 1 si <in fois 
dii vToc i?l du classe. 2 si nt^n n esl 
da55e). Ce Wchm esl baptise h"P. 

• Un fichier contenant l&s a.dr&&ies 
eveniuellement Kb^r^es par cies 
annulatlons d'eni^0sff:ein^ts;^ gI 
baptise PL 

Analyse du pto^iimme 
de 4€nionstratioQ 

II s'agit d'un proqramme dassique de 
gestion de tichier. permeltani b crea- 
tion, la modification, lo cc^nsultohon, 
I'annulation et \ii lisre d'^nregislre- 
ments. .Son etudf nous aidera a 
comprendre la rnise en oeyvj^ du 

Principales variables 

• AR: adre^.'^t? Hp d^hyt- de la rou- 
tioe eh lonsoge-modrfTte Ae re- 
chercbe dans un secteur. 

• ADR' adrf>^Rc dp Hphnt Hp la 

i:one ou b mutiiiL- nirK [,int -^lo- 
ckera adre^ses df^ enreqisire- 
mpnls Hon? b cIj^ correspond a 
celle que I on chercht 
■ CLE . adresse du debui de la zone 
ou le programme POKFt^ In rie 
recherchee, 

• A5Y0 adresse dii debut de Ja 
7one ou la routirw-machitie sfej- 
ckera les positions dans le secteur 
d€S cf^s correspondant a celle que 



Ton chcrche 

• BU adies&e du d^buT du buffer 
en me moire utiliEe p-ir RWTS 
jioui \]w ou 6cnre un -^-^'i icur 

• LC adits^e ou btfu POKee )a 
ionqueuT de ia cle cherchee. 

• RES tesultat de recherche. s63f 
si Ton n'd pas ^^^we,:etiG nq^n- 
fee. de eg^Jes h cetfe eherchSe 
dansde cas cbritrafre, 

• ABL ; iiidicdteuT de fin cie secieLjr, 
positionne par ia routint? marhim^ 
Si *>n Irouvu efft?ctivt'mf'nl unc cie 
[au iiiuii];?) LotrL'cle. mai:s qu»? 
cell c CI e[^t egalemeiil la derniere 
dun secteur. la rouline rnettra 1 
dans I'ddit^^t/ conLi^pcindani d 
ABL Ln ellel, dans les cles cla^- 
sees, rien n'interdit que Ton ait un 
MARTIN, par e?cemple. a la fin du 
!iecfeu[ 3. mais t^ussi d'aulres 

Si AM- vmi h fl-fattdia dbnc exa- 
miner le sectetii ^ivant pour veri- 
fier s'il n'y a pas d'autrcs cles pos 
sibles. 

• lO adre^it^ de debul de la lable 
lOB pour RWTS 

• AA lLiiiyut:ur d^s Informations 
aimexes qui seroni egalcmeni sto- 
ck^i-b dans ta Table 

• in (^Jrs^sse de. debut d*f k labk? 
DCB pour RWTS. 

• RWTS adresse de la routine 
d'appel de RWTS lv«ir maimt^ du 

DOS 3.3 rufflM^ de 
RWTS), -^'^-^ 

• N : numeTO du secteut Gcjuranl sur 

iequel on lit ou ^crit. 

• C : commande pour RWTS, soit 1 
pour Line lecture et 2 pour ^rf- 
lure. 

FonctloMemfini 4l» pKo^amiiie 

Li> programme manipulc un (ichier 
de donnees DON a acres direct. 
donT la lon^^ueur Je^ c n re gi sire in en 15 
est flx^e a lOQ. II commence par une 
phase d^initiali'jafion. suiuie de sous- 
routines. Qt rossentiel des traitemenls 
i^dlisKs porte sur la gestlon de la 
l4bte ^ r&tStenm et dp firiW^ Fi- 
chlGi^ ^ progr^wrimes sont ert Qutee 
places suf la rtieme disqlffitte, qui tie 
sera done exploitable que ^ W. DOS 
a-ddja etc charge S.portir June autre 
disquette. 

- UsaeB 2 il 13 ! inltialteafion. On 
d^nit la ual^ijf deS differerite^ adres- 
se5 qui ossurent le passage dt pciia- 
moires entre le programme Applesolt 
et la routine -niachiine de recherche 
de cle lADR. CLt. A3^'() LC i On 
fixe eqalement 1 adresse ij implanta 
tion de la routine [ARj Cytte der- 
niere esl relo^eable a ^eti pre^ 
qu elle utilise des tableaux (AUK 
CI E ^1 ASYOJ donl on veui poyyotr 
faire varier la taille et I'adresse 
debut en fonction des besoins. mais 
dont ?es adresses ont ^t^ donnees dc 
mani&re obsolue h Tassemblage de la 
routine. Cest pourquoi la ligne 13 



remet dans le code miichine. aux en- 
drotts oC] elles doiveni apparairre, les 
adresses reelle^i mrrespondant a 
ADR. CLE Ql ASYO. 
Dans noire exemple, les trols ta- 
bleaux sont a la suite les uns des 
autros a partir dc l adr^sse $9100, et 
ran syjjposG qu'S ff^ "ausa pas 
de 8' hornonymes par secteur (ADR 
oCCUpe T6 octets^ soit 2 par adrcsse 
retenue. et ASYO en prend 

A la ligne 4. on fixe I'odresse de la 
table lOB et on la conslttue en reco- 
piant ce\\& du D05i. qui dphutp e*n 
47080. Pour que la table 5oit coh^- 
U f^uF done qu^ \e d^trn^ iec- 
t^UT U^iS^ juste a^ant cett^^^r^^i^t 
bien celui dans lequcl se trouve la 
disquette du fichier, Ensuite, on indf- 
que dan*; la taWe HOB I'^dTesse de 
noire table DCB et on P0KE dona 
cette derniere les valeurs attendues 
pout nos lecl^urs 140K. 
En ligne S. on implanif a Todrf^se 
768 la routine d'appel RWT^ Les 
valeurs 14S- el qui !iuivenf re.spt?c.ti- 
vcment lt)9 {code de LDA| et 160 
(code de LDY) ct^eqsondent au 
pnidi; fort &X pf^S. MUg: de 

I adres^e d& di^.ut 4e la iaA^ E0& 

(tOj. Dans mm mmeX&:. k ^ds 

fcrtvatrt $94, s6tt I'^'en d^m^t et 
le poids faibic vauE 0. Vous auriez 
done a modifier ces deux valeurs ^ 
vous ^'ouliez modifier Tadresse de la 

table lOB. 

II pst po*vsibli^ d\^mploypr toiite cette 
partie d'imtialisation en modlfiant 
r implantation seion les besoins. H 
suffit pour cflla de donrier les valeuiB 
qui vous conviennent aux variables 
COTcem^es : AR. ADR. CLE. ASYO, 
BlI, 10 el l<?s deux octets corresfion- 
dant I'adresse !0 dans les DATA 
de la routine d"appe! ^ RWTS. 

- Lignes 15 el 20 : lecture des 
deux fichiers annexes et branche- 
ment au programme de ttaitement 

qui debute i) la ligne 100 

- Ligne» 50 et 60 ; retheiclie du 
secteur ciasse dans Iequel la de cher- 
chee pourrait eventuellemenl se trou- 
VKi. Si Id cle e^l ^pUpeiieure a loutes 

ceiles deja class^^ JN corr^Rcmd au 

- Lignes 65 et 70 : cunver5ior:i du 
numero de secreur en adresse physi- 
que sur disquetle (piste P i secteur 
S). puis leChire du secteur en m^- 

moire. 

- Lignes 80 a. 86 : sous-pro- 
gramme d'appel a la routine machine 
de je;,heidie et e^ploildtion de ses 
resultats. Lecture du secleur N 
(GOSUB 65) et appel par CALL AR. 
En retour, on a !e r^uhat la rc- 

cherdie (R) et ia vateur 6$ Ttodlca- 
teuT dc: to de ^^ftetir (Kl = 
PEEK(ABL))- Si ZC%. qui conrienr la 
cle' cherchSe. est egal a la derniere 
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cherch^ donne maltire cela un r^bul 
tat nol (R=0). CeSt que cette de 
N$(N) a ele annulee depuis \e der- 
nier reclassemenL Dans la mesure oil 
une- de itkriTifjuc pourrait se frouvef 

on R Si 1 d'aller esiamtqer 
500). 

En llgne 82. on elimme las cas ou 
Rl. pniirr^^ir donner une Indication 
fausse. c .?si-a-dir<:- si Ton a exciniijiL^ 
\e dernier s^aeur classe alors qu*? 
tout da.s^p nil Ton a fXEimine 
le dernier secteur de vrac s'il y en a 
[IC>0). 

Les lign^?^; H?, pt 84 con'espondeot & 
b lecture el 5 I'affichage (GOSL53 
90) de tous les enregisJrGments dont 
la cl^ p-st egr)le a ceJle que J'on cher- 
che. A chisnque afMioge, on de- 
mande a Tutfisateur "EST'CE LE 
BON unp repons*? affirmalive 
confimic que Ton a bel et bien 
trouvs, ce que 0=1 Indiquera par la 
suite. 

Si aucun entregistr^menT n V^t le bon. 
on prend en compie, comme en SO. 
r^ucninaiite d'tine annulatioti de la 
derniere cle du secteur (ligne 85). A 
Tissue de la lign*? 86. R sera nul ou 
rm sejon que BL vaudpa ou non 
> O si^ifie foujpui* qii^n fto- 
monyme petit encore se irouver au 
d^but du sectPMT siiivant celui que 
Ton. vienl d'examinet). 

- 1-lgne 90 : lecture et affichagt? 
d'uBi enregi5trerrn?nt du fichier DON 
d adressG A Ligne 95 : pose une 
quRsIion a rppnnse "O" ou 
Ligne 98 -ecriture d'un enregistre- 
meni du fichler DON d'adresse A. 

- Liqnes 120 a 130 : introduction 
de la cle au cL'.vu j. puis POKEs aux 
adfesses neci^ssciirk:^^ ptjUE Itl luulilie- 

machine. La longueur de la cle est 
quelconque. a la seule reserve pr^s 
qu elle ne doit pas exceder le& Ldpa- 
cites du systeme de gestion dfs cles. 

- Ligne 200 i NZ = -1 si on t-st a 
b toulc premiere utilisation du pro- 
yiamme (voir plus loin TinitialisatiGn 
d'une disquefte fichicr). Inutile done, 
dc chcTchcr dans ce cas, el te pre- 
mier secteur de vrac S ctifi^tiier ^ 
le secteur de la piste 0. 

- Lignes 300 a 500 : appel ^t ex- 
ploitation de la sous-routine 80-86 

en foncOon d.u. ^tatut ^ -%5t|?nie vis- 
a-vis du dd«&^nrt^'t (IG)- Am ntim§- 
ros de lignes pres, cette partic pouf- 
ralt etre utilisee sans ctianQements 
Han 5 tout autre programme 

- Lignes 700 i 740 ; misp en 
pbce des elements d'uiie nouvf^ 
cle dans le secteiff de va^ :03utaht 
Les trois octste "d*it^ff>rmatf6ng an- 
nexes sent donnfis par l(!s trois der- 
niers giSments du tableau ZY£. 



On calcule d'abord la longueur totals 
1-T Chaque cle occupe LT octels, 
plus 2 pour i^fi deux longueurs sto- 
ckees, plus 2 pour I'adressle de Ven- 
registrement: elle sera en outre suivie 
d'un Inrs de snn entre.p d^in'i [e 
s^:teur, afin de jn^tber ia &n des. 
^iftees utiles potir ce d^rd^: ttfittit 
dcmc LT-*-5 octets lihres dans Se^SP^-- 
feur courant pour y mettre notre 
nouvdle cle, ce que Ton verifie lout 
ri abord Si 1pI n'est pcis fe ci^s, il (aul 
'ouvrir" un nouveau secteur de vrac. 
dans la mesure oQ le nombre de 
pistes disponibles le permet (1i9n^?s 
710 et 715j. 

On peui ensuiiG POKEr les octets el 
mettre a jnur la posilion du premier 
octet Ubre darts ]e secteur (OO), Par 
[H^utlon, le secteuf sdr^ mot^M 
est aussilfit reropj^ _siir Hf^itefte 
(C=2: GOSUB f,^] 

Ugnes 820 et 840 : modification 
dans la table de reference. SB donne 
la po-sition dans buffer du prerriier 
c&ractere de la cl^ s^lectlonn^, po^' 
Sf^ qid a-gtS (ndiqu^e par la routine- 
machine. On remplace done les in- 
formations anne)ces eventuellirment 
modlfiees avant de re-ecnre le sec- 
teur. 

- Ligne 980 : pour marquer Tan- 
nulation d'une cl^ on rernploce son 
premier car&ci&te par un 0. ce qui 
garantit qu^elle ne sera pas retrouvco 
par la rouliut de recherche. Par 
centre, sa disparition effective de ia 
table ntf sera r^alis^ qu'S Tissue du 
r^L.lct^b^iiit;itL, 

- Lignes 20O0 a 2999 ; fin el sor 

tie du programme. 

- Lignes 3000 a 3070 : li^ et affi^ 
chage ifes ^enregistrements dbnt les 
clfe sent flctueliement class&es. On lit 
successiuement les secteurs depuis 
N = iusqu^a N = NZ {sQuf 5i Tutilisa- 
tyur anete auant), Dans chacun dc 
c^s ^ecteiir^, on tecupere les don- 
nees de chaque cle non annulee 
(PEEK iBU-^5B) <> 0). on lit I en- 
refjisErement conespondani et on Taf- 
acKe h V&cran. 



Programmes annexes 

InttiaUsatlon d'une 
dlsquette "^chler" 

Woiis pouve? Li1rli<;(.>r iin programme 
comparable au programme INiT lisle 
ci-apres. afin de donner aux parame' 
tje^ du systenne les valeurs c^ectes 
pour une toutc premise ut^tia^on: 
C'esi dans un lei iw30amnte que; 
\jous pouvez par affleurs rSserver |>nis 
de 3 pstes pour votre table de refe- 
rence Pour disposer de N pistes 
me^m TOKE 44723, 4.N'^ avant 
la commande INlT, puis "POKL 
44723, 12" luste apres pour retablir 
le standard du DOS. Pour N pistes, 



le demier secteur de clea occessible 
sera NN - I6m - 1- 

Classement des cles 

Ucssenliei du travail est r^fisS par 
une ro-utine-machine, appelSe (CALL 
4096) pai le piuyrdnirjie Appl-trsofl 
baptise CLAS, Ce prt^amme foumit 
a la routine les param^tros n^ces^u- 
res , 

• AC : adicssc memoire a partir de 
laquelle seront chai^fis en se- 
quence tous 1^ secleurs de cl^ 

• ^yS: adresse a partir de laquell^ 

s^MJnt cb^rg^. en s&juence teas 

tes sect eurs de vrac. 

• L'ddresst du buffer qui sera utilise 
pour reconstiluer les secleurs clas- 
ses ct tos ccrire fTur di'squerte est 
POKee en 24 (polds faible) ei 25 
fpoids fort). 

• Le statui par rapport au ctasse- 
men! (uLixle "clas^ie vrac ' ou '^rien 
de dassG") est POK^ en 214. 

PC et SC donnont I'adrcssc sur 
dibquellt? du deniier sec^uf de 
cl^s clas5eeSi tsm dis qufi rr^ et SF 
donnent le meme renseignenn^t 
pour le demier secteur de vrac. 

Au retour de la routine, le pro- 
^mme recupere les param^tres du 
fijSt&n-e reclasse et constitue notam- 
menl le tableau N$ demi^res cles 
de chaqUG sectGUT- 

Te! qu'il vous est presenle, le pro- 
gramme isuppose que la t^quette fi^ 
i^mt se irouve dans le lectecir 
au moment d^ \^m&m<mt Si 
vous voulez TutiUser avec ui^ 
quelle dans tg lecteur S6-D1. raiou- 
tcz "POKE 53S7,1" apres k charge^ 
ment de la routine CLAS-OBJ 
A noler que le fonclionnement de lii 
routine- macf I ins? ^upposf qu^* Ton 
piiissc chargt?r ious le^ M'rifiir^^ df 
cles en ineme tenifjs d^ms la me- 
moire rentrnli* {.e buffer utilise, juste 
au-dessu5 de la routine elle -me me, 
va de $1500 a $15FE. soil 5376 a 
5631. Le nombrc maximum de &yc- 
teura autoris^-est.donc : lNT(j:38400 

- 5631) / 256], sm de a 

127, ou encore 8 pistes completes, 
oe qiri fait d^S beaucoup. bien qu'il 
soil difficile de savoir combien d oc- 
tets son\ perdus a la fin de chaque 
secteur du fait qu'on ne peut piis 
toujours V stocker un nombre Tond 
de cles. Si on suppose par exemple 
que toutcs les cles sont foimatees a. 
15 caractdE^s. plus 4 octets d infor- 
mations ameices, ce rt^esenle 
done 15-f^+^-6cMs p&r 4l^hient de 

la table., m pQMir^.^^ lW'^ sys- 
uii fierier ^us de :140Q en- 
registrcmenls, si la place disponible 
sur le reste de la disquette le permet. 
Sur ce dernier point, ajoutons encore 
que. bien que ^uii saii^ duule 

moins prafique. nen ne ^ opppose h 
ce que la disquette du fichier de don- 
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necs 5e Irouve dans un iecteur et 
celle de sa lable de reference dans 
un autre. Dans ctk cas, il faut songer 
a appeler le Iecteur contenant la dis- 
c^ette "table" avant de recopier la 
la^e IC® du DOS dans le pi^o- 

ik pro^ariTtnc cfe d^onStranon). 
En ^tre, il sera hnn 6p pr^voir une 
bOticle d'attenle avant I'ecriture ou la 
leccjre des sccteurs de cles par 
RWTS. car lp p;^5Stnje Uop rapidt; 
d un Iecteur a I'autre peat generer 
des eiT^urs du type 'f ERROR ' 
(dans notre prf>gr^inim(j rli; di^Tnon^- 
tiation. Tajoul d'un^ boucle "FOR 
Z= 1 TO 100 : NEXT" a la fin de la 
ligne 65 ferait 1 ;iffairpl 
Par aillcurs, 5i les secteurs sonl nom- 
breux et les cles longues. il peut ne 
pas y aunir i^sse? de place scitis le' 
■HIMEM:4Q95'^ ppitf constiluer le la- 
bleau m sans e-craser ie programme 
de classemenl II frindrriit alors modi- 
fier ce derniei afin d'^rrire les demie- 
rcs cl^s did chaqiik^ !^t'iR-'ur dan^ le fi- 
chier FP fur . t j m^sLire kur 
obtcntion, plutot que^ de les regrou- 
per d'abord dans un lableau en me- 
moirs 

Routines en assembleur 

Nous vous laissons le soin d t'n 
conduire unt? ^^n,^]y^f delatllee a 
Taidc des commenlaires quVlles 
componeni ei nous bomerons ici a 
indiquer \f[nF. princlp^s generaux dc 
fonctionnemirnt 

Routine d« retlivrche dans un 

d'appliquer la m6me ^m^irrhp 
aust cJgs classees ou cri vrac. rou- 
diic n'ulili^e ducun algonfhrrn? df re- 
cherche, tile Iraile t?n spqiipnct* 
toutes les des du secteur lu en m^r 



moire et compare uhaque ocfet 
d'une cle a roctet de mSrne rana de 
la c\4 rfidhcrch^- Ello ne. p^^ssp & 

suivante, en consid^rimt qUe ia 
comparaison. a echou^, que si un 
of^ tfrftei^ (i^i BNE) ou s\ iDus les 
mais avt^c une 
dt^mi^eritre la longueur des deux 
d6s compariies. 

Routine de cUiftsement 

Eile Se Chafi^e ^ la ternire en me- 
moipe IqUs les sectcurs de des. 
classics ou non. Le princlpe miUse 
en alors le suivant - 

• Recherther [a p[us peCie cle du 
vrac. [fl melire dan^ wnt} ?onc h 
pari el signaler le fait en rem|^i- 
gant sa longueur par IFF dans-i^ 
enregisTremcnt- 

■ Prendre Ja ptsrtnhe cle classic el 
la comparer h la plus periie du 
vrac. Les donnees dt? la pln^ petite 
dee deux son! copiee^ dan? le buf- 
ftr dlluu^ a la constitunoT) de sec- 
itiurs classes Des qnp ci? buffer esl 
pltJin, on rccril sur Li disquette t;n 
[7uidni la touie dernt^re cle qu il 
contient. e7 on passi* £iu secleur 
suivanl cn repartani au debut du 
buffer. 

• 5i la plus petite e^t nm ci^ das- 
■fii&fe, on rL^faii ensuite la compara^ 
son av(?c Id cie dassfie suivante. Si 
c'est itt cle "Vr?ie'' qui a ^fe mise 
dans le buffer, on va chercher la 
nouvellfcT plus petite cl^ du vrac et 
on reprend la comp^jraison avcc la 
meme cle c]Eisr^ee 

• A locca^iuji dt' ce^ opi^r^^nrin'i. les 
cles annulet^s ne .snnr p-^s prises 
4?n compti) ct ne sonl jamais re- 
pg^tyeb Udns le buffer. Oes dispa- 
raissenl done de la teble de refe- 
rence. 

• dassement est leirtriTie ipfsque 



I'on a ainsi traji^er^ dans le buffer 
et te-&cnt eur disqu^Ete dans 
sedt&urs classes IouIks les des qui 
^^tetent d^ja dassees et routes |es 
nouvelles cl^s prccSdcmment sto- 
ck^es eri viae. 

Conclusion 

de gestion de ftchiere 
t^;us semble preset itt^r de^^ points pi> 
Sitifs qui peuvent juslifier son emploi 
dans cenaint?^ d-? vos cipplkabons 

- Moyennant un reciassement peria^ 
dique de la table de reference. 1^ 
temps d'acces aux enregistremcnte 
sont Ires acceptables. n^nte s^ ^i^ 
fichiers de ,teill?..ccknsGquenl0,. 

- Avfljii de commence ft "inivai!- 
ler". il n'esf pas necessaire d*;ittGndre 
que charge on memoire. ii partir 
d'un fitliitr imponanl. une table de 
reference sou^ lomie de tableau Ap- 
plesoft, La lecture des fichiers an- 
nexes fp PL ne repr^stnie plus 
qu'un rielai d attente minime. 

- La memoire centrale n est pas en- 
combiee par la table de reference 
des enregistremenTs d nfi gam 
place pour uos programTnes el relic- 
tion d^s problfimes dc "netfcft^age 
memoiris". 

En revanche, rp>fploitation de cette 
methode dans vqs traitements est. 
?>aTis doutG j^tfi complexe qu'une 
gestjon uniquement r^ali^^e €ous 
"DOS 3.3 + Applesoff^, Notis esp^- 
rons c^pernjant que I'analysc du pro- 
Srarnme d& demonstration, dont les- 
parSti^. ixindpales peuvent etre repri- 
ses S quelques adaptations pres pour 
d'aatres programmes mu^ permetfra 
de EroLivcr dans cet article une aide 
efficaci? pour vos probtemes de fi- 
chiers. 



n^Dgtaninie TEST 



1 HIMEMr 9 » 4096 - 1 

2 AR - ? • -10?6iAOR - 7 # 4096 ♦ 25 

^tCLE - ADR + tdlASrO ■ ta.E ♦ 
256tH3 - IMF i^Syo / 294>iLS * 
ASTQ - atW; < NSrW * IMT CAOR 
/ 29tf}iL0r m ADR - 25i « HD:HL 

- IMT (CLP / 25^)!LL - CLE - 
25^ • HL 

3 LC ^ 6iBU - 9 * 4096 ♦ 5 ■* 2!36 : HB 

- INT (BU / 2S4):LB - BU - 2 
» HBi POKE BpLB: PQKE 9^He 

4 RES " ^ 29: ID = 9 » 4096 ♦ 

236 • = 3: FOR J - D TO 1 

6: POKE 10 t I, PEEK (47080 + 

n i NEXT !DT =■ IP * 17:DH » IMF 
<DT / 236>!0L * m - 2Sd « OHs 
PQKE ID ♦ ^,DLf PdPCE 10 ♦ 7,D 
Hi PttfCE _IO ♦ 17, 0» POKE la + 1 
Bvlf POKE la + 19,2^1 POKE TO 

3 POKE 10 + 3,0iRUTS » 766: FOR I » 
TO 7: READ GC : POKE RUTS * I 



,OCi NEXT I DAtA I dV, 149, 16 

10 D» - fcHR* MXDl* - CHR» <13) ♦ 
CHR» <4>i PRIhfT Dt^BLOAD RgC- 
OBJ.A'ARsRU* = Ol« * ■pRHO':hrJ 
— 47: DIM M*<r*^> 

13 POKE AR + 2l,LLi POKE AR ♦ 22, H 
L: POKE AR + 59 , LD t POKE AR + 
60,HD! POKE AR t 6^&,H?; POKE A 
R + 67,HDi POKE AR ♦ 42,LSl POKE 
AR * 43, HS 

15 PRIKT M'OPEM FP" : PRI^^' D*-REA 

D fF'l iNPUT NZ,NF.TT.OO,ICi fUR 
I U TON2= INPUT N*<i>j MCJCf 
I ffilWr D**CLOSE-^ DIM ny,!i^^ 

20 T0fT S Ht*te ! PRI^n■ D*-OPEN PL' 
> PRINT M^REAO PL": INPUT PL i 
FDR I =- I TO PL! JNPLTT PL>:< I > 
! NEXT ! PRINT D»'CLOSE"! PRINT 
D»-OPEN DONjLlOO'i PRIKT RU»< SOTO 
100 

M POR I = TO NZ: I F < = NrtC 

I) THEN N = 1:1 - N2i NEXT ; RETURN 



Pom's 15 



60 NEXT :N = N2 * I; RETURN 

& P ^ IKT CN >^ Id) bS » N - 1^ « P 

70 POKE Id 4,F3 MKE 10: ♦ 5^51 PWE 
Id * P,HBi POKE 10 * 8,LBa POKB 
10 ^ li,C: CALL FH/T5t RETURN 

73 PRiWr a lt*/ERSe ! PRINT ZNVfs NORmL 
t Z*S PRINT : RETURN 

80 C » 1 : GOSUB ASi CALL ARiR - PEEK 
<RE5>!eL =- PEEK (ABDtRI = U; 
0^0: IF R =1 a 7r.% = N«fN 

) AND N < NZ THEN R - 1 : RETURN 

SI IF It = a THEN RETURN 

M IF <N - NZ ^=WD IC < 2> OR CTT - 
N IC > 0} THEN BL - D 

as J - 2 « RI^A > PFEk fADR + J) « 

236 + PEEK <ADR » J t 1>: GOSUB 
VQxZrm ■ "EST-CE LE 8DN" : GOSUB 
95; JF 0* = '0- THEN RI = RI ♦ 
1:0= I I RETURN 

84 RI » RI + 1 : IF RI < = R - 1 THEN 
93 

G5 IF 2C» = N»<NJ fiNO N < > NZ THEN 
R = 1 : RETURN 
R ■ H » BLj RETURN 
90 PHlftT W^ISB^ dON^R-'Aj FOR 1 ^ 

iD TO ^1 INPUT ZY«<I>i ^EXT t PRINT 
RU*? PRlW ( VTAB 121 FOiR I - 
TO 6i PRINT ■ -jZY^CDja CALL 
- B68; PRINT : N&TT i PRINT : 
RETURN 

^3 PRINT ; INVERSE : PRIhO" ZM* i J NORMAL 
: INPUT ■ ? ■ ;a*s IF 0« < > " 
0* THEN 0* - "N" 

96 RETURN 

9B FRim WyRITE DONpR'Al FOR I » 

TO ^1 PRINT ZY«<i>l MEXT » PRINT 
WPRM-5 RETURN 

100 HOffi I PRINT "1 - CROmiM*^! PJttWT 
-2 - MOOIFICATIGW I PRINT -3 - 
CONSULTATION-: PRINT "4 - AhN 
ULATlON-i PRINT "5 - LISTE"! PRINT 
'6 - FIN' I PRINT ) INPUT "yOTR 
E CHOIX : -jCH: I F CH < 1 OR C 
H > ^ TH&J lOD 

110 IF CH = 6 THEN 2000 

113 IF CH = 5 THEN 3000 

120 VTAB 10: HTAB t: TNPLfT "CLE ? 

■■ |Z«i IF 2* ^ THEN too 
125 ZC* = Z»i IF U&t <2»): > <2m - 

AA) THEN i:^ 
130 L - LEN <2«}t POKE LG,Li FOR t 

» 1 TO Ll POKE CLE + I - 1, A9C 

C MID* C?«,I,l))i NEXT 
200 IF NZ - - I THEN R ^ OtP - 0i 

S = J GOTO *O0 
210 CI IC ♦ Is CM Ct OTTO 300,400 

fSOO 

300 OOSUB 90; IF N < - NZ THEN 31 
D 

305 N - TTlC - ll GOSUB £5tR » Oi GOTO 
600 

310 GGSUB 80; IF R ^ THEN 303 
313 IF ^ 1 THOi 6QQ 
320 N * H: ♦ 1 I SffTQ 310 

400 Btmm 30 9 IF N > m ttm 446 

410 OdSUB 861 IF Q - 1 Tim4 ^od 
420 IF R - □ THEN N - NZ * 1 S GOTO 
440 

430 N - N + 1 : GOTO 410 

440 GOSUB SO: IF O " 1 THEN 400 

450 IF N ^ TT THEN 600 

460 N » N » 1 i GOTO 440 



500 N ° 01 GOTO 440 

^0 ON CH $Xrro 650,900,900,950 

630 VTAB Si WTAB 20 1 PRIMT " CREATl 
ON -I IF » 1 THEN 800 

^^0 V/TAB 12i KTAB 1 : FOR I > TO 

6s INPUT ZY*fI>! NEXT ; IF LEN 
C2Y»(4 J ? > 1 UR LEN t ZY^<5; ) > 
1 OR LEN <2Y*C4)J > 1 THEN 66 


610 IF PL ^ > THEN A a PLX(PLJ| 

PL = PL - 1 : GOTO 490 
680 NF ^ NF ♦ 1 :A = NF 
690 GOSUB 9B 

700 i_T - L * AA» IF 00 ^- LT * 5 < - 
2ra AN© TT < NN *■ 1 THOI 720 

710 TT * TT * am * 0! IF TT > NN TH&J 
»1* = -PLUS bfe PLACE" : GOSUS 7 
SeTT = f*l t 1 : GOTO 100 

713 N s TT;C ^ 1: GOSUB 65 

720 ZB = BU * 00! POKE ZB,LT! POKE 
ZB * 1 ,L; FOR 1 = 1 TO L : POKE 
ZB + 1 + I , PEEK (CLE * I - I) 
1 NEXT s FOR I = 4 TP 6l POKE 
ZB I' L ♦ 1-2, ASC <2Y«<n3i NEXT 

723 POKE ZB + LT + 2, INT <A 25i4 
> l POKE ZB + LT * .3,A - # 
INt iA / 25d3 s POKE 28 ♦ LT > 
4,0 

730 00 =» GO ♦ LT + 4si; - 2^ GOSUB 6 
5:IC » 1 + CIC 2>i IF NZ = - 

1 THEN NZ ™ 

740 GOTO 100 

800 "JTAB Bt HTAB 20 s PRINT 'MODIFI 
CATION 

610 IF R = THEN Zm = "N'EXISTE 
PAS"; POKE 34,9: HOME i TEXT t 
GOSUB 75 J GOTO lOO 
'813 K/T^B 12: HTAO I: FOR I = □ TO 

6i INPUT 2Y*<I)i NEXT I IF LEN 
<2y*<4>> > 1 OR LEN l2y«C5>> y 
t OR LEN CZY»<A>> > 1 THEN 01 
S 

&2Q GD5UB 5»8iG8 ^ PECK (A6Y0 « RI 

- i> 

340 FOR I - 4 TO 6; POKE BU * SB ♦ 
L + I - 4, ASC C2Y«<I>Jt NE5CT 
SC ^ 2: GOSUB 63; GOTO 100 

900 lyTAB @: HTAO 20; PRINT "CONSUL 
TATION ■: IF R = THEN 910 

910 ^/TAB Z2!Zn» * "APPUYEZ 5UR UNE 
TOUCHE": GOSUB 75: GOTO 100 

930 K/r^B 82 HTAB 20; PRirfT "AWNULA 
TICN *i IF ft ^ 8^10 

W3 PL - Pt ♦ 1 |PLX<PL> * ft 

96p SB - <*^0 * ft! 1> 

980 POKE BU + ^&,QiC * 2l GOSUB 63 
1 BOtD 100 

2000 PRINT Dl*"dLOSE"= PRINT 0%' OP 

EN FP- = PRINT D»-UJRITE FP" : PRINT 
NZi PRINT NF? PRINT TT : PRIhfT 
OOs PRINT ICa FOR I - TO NZ a 
PRINT N»CIM NEXT l PRINT W 
CLOSE- 

2O10 PRINT W-OPEN PL" i PRIMT M-U 

RITE PL's PRINT PL: FOR I = 1 TO 
PL; PRINT PLXtl^i NEXT ! PRINT 
D»" CLOSE" 

2999 END 

3000 N = 

3010 C > It GOSUB 65:SB * 2 
3020 Ll =■ PEEK <BU ♦ SB - 2> ar IF L 
1^0 THEN 30SO 
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3030 N - N + 1 ; IF N < - N2 THEN 3 
CIO 

3040 GOTO 2000 

3050 L2 ■ PEEK C BU + SB - 1 > : Z* - 

■■: IF PEEK <9U * SB) - THEN 
SB » SB * H + 4j GOTO 3023 

3055 FOR I - TO L2 - I tZ» - Z» * 

tsm^ < <BU * SB * l>Vt H&T 

« 2Sd * PBm itm ^ Li 
y * PECK ten SB + Li «^ i>i vr/vfi 

IQi HTAB Ii PRINT Z* ; i CAU. 

B63i PRINT - SB + U > 4 

3040 GOSUB 90] SET 2*i IF 2% = "S" 

THEN 2000 
3070 PRINT I GOTO 3020 



Programme GLAS 

5 HIMEMa 4095 

7 DIM P«C47> 

10 D» = CHR» (4>: PRINT Dt'SLC^D C 

LAS-OBJ-5 PRI^^■ M-'OPEN FP" : PRIMT 
WREt^D FP-: INPUT NZ.NF.TT.OO 
,T1: FOR I = TO NZ: INPUT N» 
<I?: NEXT : PRINT WCLOS£*:(¥* 
3 

20 IF 1! - THEN END 

^ r«E - HZ * i iTT - TT ♦ t 

30 - 36400 - 2M » MZb(W - AC - 

<*Tr - N2> » 25i>i POKE 4,0= POKE 
7pAC 25<i: POKE 8,0: POKE 9 
N X 236: POKE 24,0: POKE 25,21 
: POKE 714,11 - 1 

33 POKE 26,0; POKE 28^0 

35 NZ = NZ - 1 :TT = TT - I 

40 PC =- (NZ / i6>isc = nz - ia 



* PCiPF = INT <TT / 16)iSF " 
TT - 16 » PF: POKE 30 , PC : POKE 

31, SC: POKE 206, PF: POKE 207. S 

F 

SO CALL 40961 FOR I =>= TO NZ sNSCI 
) » ■■: NEXT 

^0 P - PEEK (SaSJ iS^^- PEEK C^> r 
- * I^^i ♦ S - M FOR E * 
TO N2>B - PEEk <7m +2*1 
>aSy PEEK €769 ♦ 2 » I:>tB - 
8 ■ 236 ♦ SYtJ * OIL » PEEK C 
B - 2) - 

70 N»<I) - N«(I> » CHR* < PEEK <B + 
J>?:J = J 1^ l! IF J < L THEN 7 



80 NEXT rTT -r MZ + lill - OiOO = 

: PRINT : PRINT WDPEN FP" ! PRINT 

WURITE FP's PRINT NZ s PRINT 
NTs PRIMT TTi PRINT 00= PRINT 
lit FOR £ «- TO NZt PRINT WX' 

is* fmCT ! Ptiim M'fa.dsE"a print 

D**Pft*»0* 



Programme INIT 



5 W » 47 

iO 0* - CHR* <4>» PRTWr D»"IN1T H 

aUJ^i PRIMT WOPW F'RiNt 
M-URITE FP-! PRINT - is PRIWT 

0: PRINT 0: PRINT 0: PRINT 2: 
Z< => ■-: FOft I ^ TO NN: PRINT 
Z*: NEXT 

20 PRINT [>»-ciPEN PL'; PRINT WWR 

ITE PL': PRINT 0; PRINT Os PRINT 
WCLOSE'r PRJNT 0»-pRltO" 



Programme RECSCE 



1 

2 
3 
4 
3 
6 

7 

6 
9 
10 
II 

12 

13 

14 

15 

16 

17 

18 
1? 
20 
21 

22 



;« « 

;* RECHERCHE D ' UNE CLE • 

J» <LIBA 1,5) » 

CODE » REC.OBJ « 

!* • 

' ORG *9000 

OBJ «800 
LG EPZ W 

DP LA ELE 
I MB EP2 *Q 

DU BUFFER 
LC2 EP7 419 
Oe LA CLE Lue 

LT2 EPZ %19 

TDTALE CLE LUE 
RES EPZ 



(LONGUEUR 
LE SUFFER 

JLONGUEUJ? 

DANS BUFFER 

(RESULTAT 



RECHERCHE.'NBRE CLES 
SY EPZ *1B 

CLE TROU-viEE DANS BUFFER 
A6L EP£ %iO 
■FIN DE BUFFER" 
UOX #0 
ffTX ftfeS 
STX ABL 
LDY «0 
CLE DU SUFFER 

LDA CINB) ,Y 



POSSIBLES 

jPOSITlON 



DRAPEAU 



sPOSiTlON 
jCOMPARAI 



23 S2 STA LT2 

24 INY 

25 LPA (INB) ,Y 
STA LC2 

27 xm 

BEBUT DE CLE 
^9 Sl5 LDA CLE.X 

SON CLE/CLE DU BUFFER 
CMP tlM8>,Y 
ONE S3 
INX 
INY 

CPK LC ;FIN DE L 

A CLE 

BNE SO 

CPX LC2 iMEME LON 

eU£UR QUE CL£ DU BUFFER ? 
BNE S3 
LDX RES 
LDA SY 

STA SY{1,X jPOSITICW 
CLE POSSIBLE DANS BUFFER 
tm RES 
INC RES 
ASL 
TAX 
LCa SY 

CLC 

ADC LT2 
TAY 

LDA crNB>,Y iSTOCKAGE 



30 
31 
32 
33 
34 

35 
36 

37 
38 
39 
40 

41 

42 SI 
43 
44 
45 

4^ 
47 

48 
49 



X=2»A 



2b 



Pom's n" 15 



AORESSE DE L'ENREGrSTREM^^^r 

50 STA ADR,X 

51 iNY 

52 INX 

53 LDA < INB) ,y 

55 LDX #0 

56 INY 

57 LI>A < INBJ ,y 

58 BNE S2 JSI O 
-> RESTE DES CUES A EXAMINER 

ES POSSIBLES EST EN FI« BtiFPER 

STA ABL jAUTRES P 

OSSJBLEB SUR SECTEUR SUIVANT 
6X RT8 

S3 LDi< tfO' fPAGSAGE 

A LA CLE 5UIVWTE 
■S3 LDA 5Y .0^=^S LE 

SUFFER 

CLC 

45 ADC LT2 

66 ADC *I2 

67 TAY 

68 LDA CINB^.y 

69 BNE S2 

70 RTS 

71 ADR DFS *I0 lA0RCSSes 

DES SS*RESISTREJ-ffiNTS 

72 CLE DF3 <FF ,CLE RECH 

73 SYO DPS IPOSITEON 

S DES CLES POSSIBLES 

74 DCP1 " INT " 

75 &40 



STB^SECTEUP POUR RUTS 
23 S EPZ *EC 

29 LG EPZ *ED ;L£WGUEUR 

TOTAL E [JE LA CLE 

25 ZTPP EPZ *EE 

26 LCT EPZ *EF jLONG, TO 

TALE * PETIT CLE DU UIPAC 

27 SZC EPZ %FV jPOlNTEUR 

^FiN ZOKE CLASSEE" 
29 S2T EP2 *FA iPOlMTEUR: 
"FIN ZONE MRAC" 

29 SYC EPZ *FB ^POI^^TCUR 

''uratfr CLE" OAWs 9loc classe 

30 3YC0 EPZ »FC i POSITION 

* GRANDE CLE DANS SON BLOC 

31 LCT2 EPZ tFD ;LONG- TO 

TALE D ur^E CLE DU VRAC 

32 SY8 EPZ tFE jPOINTEUR 

DANS eUFFEP RECOPIE-^DISOUETTE 

33 CLEMAX EGU *300 jSTOCK- D 

ERNIERE CLE/CHAGUE SECTEUR 

34 SXC EPZ *FF jPOlNTEUR 

DANS LA 2J3NE "CLEMAK" 

35 LE^ #W flHlTIALI 
SATICW PARAMETRES POUR RUTS 

3d LDX tt*C 

3? STA tOB-X 

3S LDA ZCT^I 

39 STA ZCTP+1 

40 LDA IC 

41 BNE S7 J.IC=1 — > 
HlEt-i N-EST CLASSE 

42 U>A 2.CC+1 j DEBUT 20 
NE -NON CLASSE" 

43 STA ZnCP*'l 

44 L6a #0 









45 




STA P 




Programme CLAS.SCE 




46 
47 




STA S 
LDX rtO 


jCMINTOO 












SERVIRA POUR LA SUITE 


I 




48 




STX CM I NT 




2 


• 


*■ 






LDA 2CC 




3 


« ROUTliNE DE RECLAS3EMENT » 


50 




STA I08jX 




4 


• ^LJSA 1 .5^ 




51 




INX 




5 


• CODE = CLA3.D0J 


• 


52 


34 


LDA ZCCP*1 


fl LECTURE 


6 


* 






DES PISTES CU^^EES 




53 








09 




54 




JSR Fftrrs 




9 


0R@ miQOQ 




55 




LBY P 




10 


QBJ i300 








LD^ S 




11 zee EP2 *^ 


iDE0UT 20 


57 




CPY PFC 






NE CLES CLASSEES 




59 




BNt SI 




12 2CT EPZ *a 


S DEBUT 20 


59 




CPY SFC 






NE CLES -EN VRAC 




60 




BEO 350 




13 BUF EPZ «aa 


S AORESSE 


6\ 


SI 


CPX tt4F 






DU BUFFER 




62 




BNE S2 




14 2CCP EPZ «1A 


iMBUT ZO 


63 




r hrr 






NES "DE TRAVAIL" 




64 




STY P 




15 2CTP EPZ SIC 




-A5 




xm m 






■ h 


6^ 




m 




14 PFC EPZ *1E 


fPPC/SFC 


67 


S2 


xm 






m PISTE/fiECTEUR DU 




^9 


S3 


STY S 




17 SFQ EPZ «iF 


! DERNIER 


67 




INC ZCCP*1 










70 




LDX H9 




IS PFT ER7 *CE 


-pFTySFT 


71 




JMP S4 






= PIGTE/SECTEUR DU 




72 


S50 


IMC ZCCP+1 


IPOINTEUR 


19 SFT EPZ JCF 


; DERNIER 






FIM DE ZONE 




SECTEUR " EM URAC" 




73 




LDA ZCCP*1 




20 :C EPZ *D.^ 


iSTATUT C 


74 




STA SZC 






LES/CLASSEMErrr CO/1 J 




75 


S5 


INX 


iPASSABE 


21 LU EPZ «D7 


f,H>ieUEUR 




AM PREMIER SECTEUR PU WRAC 


22 P 


-UTILE'' DE LA CLE 




76 






;ET CALCU 


EP2 »EB 


jP/S = PI 




L 


DES SECTEURS SUILWITS 





Pom's 15 



ff 








All SLOC SUTUANT 




"90 


INt 










7t 


STY P 




t OH 




t rvr&Nli' t^r9 

|L/E+i\l?M fin 


on 








SLOG ? 




D t 


S6 STX S 




[ J 


BCC 512 






JMP 3S 




1 J O 


INC IC 


:OUI — > 




S7 LDA ttO 


SON ARRiy 




FINIR LE "JRAC S'lL EN RESTE 




E LA SI RIEN N'EST CLASSE 


A mi ' 


IMP ci^^n 




84 


3TA P 


[PREMIER 




SI 3 LDA CM I NT 


^CMINT = 




SECTEUR URAC = 0/0 






— > PLUS DE MRAC 




STA S 






-BEQ S 1 3 1 






S.8. LOA ZCTP+1 


! LECTURE 




LDA PRC 


;PFC ~ 


BES SEl^FEURB, fig ^3tES EN VRAC 




— > A DEJA CHERCHE 




'Or 






141 


BEQ SI 30 


J LA PLUS 


SB 








PETITE CLE 0U VRi^ 




d9 


jsi? Rurrs 






51-2$! ,JS»f. RPT 




90 


LbY P 




143 


SI 3d LDA tfMHT 


sPLUS oe 

r 


91 


LDX S 






V'R^^C SI CMINT=0 




92 


CPY PFT 




144 


DCn c 1 T 1 
DbU sl-Jl 






erJE S9 




1 A n 

1 HD 


1 Ha 1 I IT 
i-UR LU 1 


■ 1 Me 1 Q T 




CPX SFT 






UU I <^L.U 


95 


BEO SIO 




t4^<S 


LOK ffEJ 






S9 INC 2CTP+1 






ST5C LW 




i? 


jnp 55 






t^P LU 






SIO IMC ZCTP+1 


jM.A.J. P 


1 7 


BC3 314 










1 G U 


TNC LM 






LDA ZCTP*t 




191 


S14 LDY SYC 


fCOMPApAl 


inn 


STA SZT 






SON CLE CLASSE A 




1 n 1 


LDA <tU 




1D«: 


5 1 4u L uA ^ z LLr > , T 


|LR r'LU? 


1 n 


STA 5XC 






OCT T T c r 1 J 1 p 
PET 1 J fc UU VHAU 




1 U>J 


STA P 


jECRITURE 


1 ^ 


CM P CM I NT , X 






A PAKriK Ut PISTE 0/3ECTEUR 


1 


tJLL blJl 


, LLH33CC 


1 ft d 


STA S 






< URAC 






STA SYB 




15^ 


JMP S20 






LDA »2 


lC0r#1AN0E 


1 SO 


S131 LDA LC 


siL m\n 




"ECBITURE" POUR RUTS 






Lq+5 qCTETS PAR Ci-E 














icoHptant 




LDX #*C 






LE OUI MARQUE LA FIN 










ADC rt5 


jpU BLOC 


1 L U 


LDA I C 






CLC 




I 1 1 


SEO 5100 




1 An 


ADC SYB 




1 t 9 


JMP 327 


;RrEN WE 


1^1 


BCC 514 


; r L Y A D 




ST CLAS5E 






E LA PL^CE 3UR LE SECTEUR 


1 1 ^ 


SlOO LDA ZCOl 


lEX^^EN A 


1 


JSR SI 32 


jECRIT LE 




PARTIR DU DEBUT DE 






SECTEUR/PASSE AU SUIWNT 




STA 2CCPtl 


iLA ZONE 


1 * 
1 O-J 


JMP SI 6 






DES CLES CLA55EES 




1 aH 


SI 32 LDX S^C 




1' m 


SI2 LDY tlO 


SIERE CLE 


1 o5 


LDA SPG 


f POiDS FO 




D'UN BLOC <2M OCTETS) 






RT ADRESSE DU BLOC 




1 1 A 


LD^ fZqCPJ^Y 




loo 


STA CLEMr^.X 






Si 1 STA L'C 


,L(>JGUEUP 


I 67 


lDa SyCO 


S POSITION 




rOTALE 






DE LA CLE DANS LE BLOC 




k ^ o 


I NY 




1 63 


I NX 






LDA CZCCP^ ,Y 




1 6 V 


STA CLEMAXfX 






STA LU 


i LONGUEUR 




I NX 






UTILE 




: ■ L 


STX 3XC 


;H.A.J» P 


121 


I NY 


;SYC POIN 




OINTEUR DE CLEMAX 






TE SUR LE lER C*^RACTERE 




1 y 7 


LDA BUF+1 


iECRIT LE 




STY SYC 


tDE LA CL 




SECTEUR CLASSE QUE 






£ 




1?3 


LDX **? 


jL'ON yiE 


123 


LEW fHCCPJ ,Y 






NT DE '^CEir^STlTyER 




Bt4E 313 


V^l ~> 


1?* 


BTA iOB,X 






CLE AMNCJLEE 






JSR RWTS 






SI 9 LDA SYC 


5 ON SAUTE 




LDX S 


J PASSAGE 




A LA CLE SUiyANTE 






AU SECTEUR SUILWT 




L il-S 


CLC 






INX 






ADC LC 




1 /o 


CPX lt»10 




1 


ADC »2 






BNE SI 5 




L t - 


TAY 






INC P 




i 30 


LDA (ZCCP>,Y 






LDX ttO 




131 


BNE SI 1 


;SI — > 


182 


SI 5 STX S 






LE 8L0C EST FINI 




183 


LDY itO 


iRAZ POIN 


132 


INC 2CCP+i 


iPASSAGE 




TEUR DU BUFFER 





184 

186 

3 97 

183 
139 

192 
193 
lP*i 
195 
196 

197 

IPS 
199 

200 

201 
202 

203 
204 
205 

20 6 
20? 
20e 

210 

21 1 
212 
213 
214 

2:r5 

21^ 
217 

2ia 

21? 
230 

221 
222 
223 

224 

226 

227 

228 
229 

230 
231 

232 
233 

234 

23S 

236 



STY SYB 
RT3 

Sl^ LDY SYB 

LES DOMNEES DE LA 

LDA LC 



CLE 



STA 

CLC 

ADC 

STA 

TOTRLE ^ 



CBUF> ,y 

H2 

LUT2 
ADRESSE 



(RECDPIE 



I NY 

STA <BUF) ,Y 
INY 

STY 5rB 

QINTEURS DE CLEMAX 

LDV SVC 



POUR 



(LE CAS □ 
jOE dOWiST 



U CETTE CLE SERf^lT LA 

STY SYCO 
DU SeCTSUR EW COUHS 

LBA ZC"CP*1 
ITUTION 

STA SPC 

LDX WO 

S17 LDA CZCCP),Y iTRWSFER 
T IKTERMeOlAlRE 

5TR cnjrj.x 

IMX 
INY 

CPX LUT2 

BNE SI 7 

Ley SYB 
im ##0 

Sia IDA WIW,X jTRflNSFEi? 
T OP^S LE BUFFER 

sta qbufj ,r 
iw 

CPX LUT2 
RMF SIS 

LDA wo iHARQUE L 

A FIN PROVISQiRE DiS SECTEUR 

STA ( BUF) ,Y 
STA RFC 
STY SYB 

JMP ei9 ^PASSAGE 
A CLE CLASSEE SUIWNTE 
S2U BEQ S2I 
JMP S23 

S£l IMX jOCTET "C 

LASSE'^ = OCTET "VRAC 
INY 

LDA [J-1 

BNE 522 jCLE "VRA 

C" EST LA PLL'S CDURTE 

CPX LU fFIN DE L 

A CLE LA PLUS COURTE ? 

BE9 S210 

JMP 3140 SNON S 

UITE CdrtPAftAlSGN 
S210 JMP S131 

S2Z CPX LUT iFlN DE L 

^ CLE LA PLUS COURTE ? 

BEQ S22 

JHP 5140 INON -> S 

UITE CGMPARAI SON 
S23 LOA LCT ; LA CLE * 

VRAC" EST LA PLUS PETITE 

CLC jSTOCKAGE 

EWJS BUFFER CmNQEMENT 

Ae*C #3 S^^SESLi^L 
E OE SECTEURR SI NECESSAIRE 



237 
236 
23P 
240 
241 

24 2 
243 
24^5 
245 
246 
247 
24B 
249 
250 
251 
252 
253 

254 

258 

2^9 
260 
261 
Zt>^ 
263 
2d4 
243 

267 

269 
270 
271 
272 
273 
274 
273 

276 

277 

279 

275^ 

28Q 
261 

282 

2S3 
2S4 

285 

2B-5 
287 

288 
289 

291 

2?2 
293 



ELC 
ADC 

BCC 
JSR 

S'Z^ LDY 

OINTEURS 

LDA 
STA 
INY 
LDA 
STA 
LDA 
STA 
LDA 
STA 
INY 
LDX 
LDA 



3YB 

32*^ 
SI 32 
SYB 

DE CLEMAX 

LCT 

CBUF) ,Y 

Lyr 

SYCO 

ZTPP 
SFC 



jM-A.J- P 



525 
T 



OE 



LCT 
PFT 



CMTNT^X 
LA CLE. 

STA «buf;^y 

CPX LGT 
»JE 525 

STY SYB 
LDA SYM 

CLC 
ADC 
ST-^ 
TAY 

LDA CZCTP) ,Y 

T DE L'ADRESSE 
LDY SYB 

BLOC 

STA (eun.Y 

iHZ SYB 
LbY PFT 

INY 

LDA 
LDn 
STA 

1 Mr- 
LDA 



5 TRANSFER 



i TRANSFER 
TDANS LE 



C2CTP> ,Y 
fiBUFJ ,Y 



UFFER 



STA <BUF) ,Y 
STY SYB 
LDX IC 
BME S2iS. 
STE QUE DU VRaC 
INX 

STX pre 
GU'IL FAUDRA CHERCHER 
JMP SI 29 
+ PETITE CLE DU "JRAC 

526 LDA CM I NT 
BNE 327 

O'CORE RESTER DU URAC 
SZ8 JSR Si 32 

RNIER SECTEUR ET SORT 
RTS 

527 JSR RPT 
PETITE CLE m URAC 

3270 LDA CMINT 
BED S28 

"JRAC -> FIN 

JMP 323 
NT '^BUFFER" 
RPT LDA 7CT+1 

DU VRAC 

STA ZCTP+l 

LDl' **n 
CATEUR 'RESTE DU URaC 



LA 



iFIN DU e 

itL NG RE 

sStWi^LE 
iNOUVELLE 

;IL PEUT 
iECRIT DE 

gCHERCHE 

f OE 
jTRAITEME 
;iER BLOC 

ff?A2 INDI 



Pom's re 15 



I 

i 



a 





miNT 


SON fiHg^C 




HE me 1ER£ * F^rtE f^e^IBUE 




LUH t £ L, 1 H ' ,7 


rUkDuI UL 




E VRAC DU BLDC 






ST A LCT 




-JO -J 

L7f 


5TA LCT2 






TNY 




^yy 


LDA ( ZCTr) ,Y 




"an n 


INY 




1 


STY SY 






CMP t(*rF 


fLA ELE A 




PE^fl fclE RECLASSEE ? 










jUh- 


CI 000 STA LUT 






STA LUT 2 






LDA ZCTP+1 






STA ZTPP 


gBLuC DE 




LA + PbT I TE PGTENTI ELLE 






LDA lZCTP) ,Y 






BEQ CI 


;LA CLE A 




ETE ANNULEE 






C& STY SYM 




nil 
J 1 1 


LOX 


:LA 1£R£ 




CLE NGN ANNUL&E. NON RECLASSEE 


HIT 


CO STA CMiMT,X 


iQUE, L'OW 




TRGWE EST TFtf^SFEF^E 




INY 


(DAMS CMI 




MT 


Old 
J 1 ^ 


INK 




O 1 J 


CPX LUTZ 




1 i 


BEG CI 






LDA (ZCTP) ,Y 




^ T Q 


JMP CO 




3 i ^ 


CI LDA SY 






A LA CLE "^-'RAC SUIU^NTE 






CLC 




I 


ADC LCT2 






ADC 1*2 






taV 




324 


C2 LDA (2trfpj,y 






5NE 




326 


iNC ZCTP*1 


eFIN bloc 




-> PASSE AU BLOC SUtUAtJt 


327 


LDA ZCTP+1 




323 


CMP S3T 


; DERNIER 




BLDC DEJA TRAITE '> 






BCC C4 


;NON ' 




Jr-TP C I 2 


I OUl ->0N 




A LA PLUS PETITE S'lL EN 


RE3TE 


3^ 1 


04 LDY «0 




■> 

JoZ 


BEQ C2 






C3 LDA CHI NT 




334 


BEQ 


;0N A TOU 




JOURS' \^ PETl1% 






LDft «CTP>,¥ 






MTPt -LCT2 












LDA f2CTP) ,V 




339 


INY 






STY 5Y 




341 


CMP l#«FF 


SCLE DEJA 




RECLASSEE 






eeo c i 




•3 A "3 


STA LUT2 






LDX HQ 




J 4a 


STX LM 


iLM^l SI 




LUT2?LUT 




346 


CMP LUT 




147 

f 


0C5 C?* 




348 


INC Ln 




349 


C9 LDA f ZCTP) ,y 




330 


BEQ CI 


jLA CLE A 



ETE ANNULEE 



351 




CMP CfiirjT,;< 


iCOMPAR. 




WEC + PETITE PGTENTIELLE 


352 




BEQ C7 




353 




BC3 CI 


;CM3NT IN 




FERIEUR ON LA GARDE 




354 


CI 1 


LDY SY 


\C!t^ CMANG 




E 


L£ CMINT 




355 




LDA <ZCTP) ,y 








LDX 2CTP*1 




337 




STX ZTPP 




358 




U>% USJZ 




359 




^ Lift 




360 




LOX LCT2 




361 




STX LCT 




362 




JWP C6 




363 


C7 


IINX 


; OCTET 'C 




MINT" = OCTET "CLE CISMPAREE" 


364 




INV 




365 




LDA LM 




366 




BNE CIO 




367 




Cp:^ LUT 


k ~ 1 Lye 1— 




A 


PLUS COURTE ^LUT<LUT2) 


7 






BNE C9 




3^9 




CI 


jOUI -> 




N 


GARDE CMINT 




370 


ClO 


CPX LUT2 


iFIN DE L 




A 


PLUS COURTE <LUT2<LUT5 


? 


371 




BEG CI 1 


iOUl D 




N 


CHANGE CMINT 




372 




JMP C9 




373 


C12 


LDA CMINT 




374 




BEO CI 3 


IIL N'Y A 




PLUS DE VRAC 




375 




LDA ZTPP 








STA ZCTFtl 


;BLDC DE 




LA * PETITE DEFINITIUE 




-Of f 




LDY SW 


(hWRQUE L 




e ReCL^SSEHENT OE la CLE 




378 




D£Y 




37^ 




LDA ^%ff 




350 




STA <2CTP>,Y 




331 


CI 3 


RTS 





382 RUTS 
383 
384 
3^5 

337 
3S3 

3?0 
391 

392 CMIN 

393 cm: NT 



094 
3?5 

396 
3^ 

399 
400 
40 1 
40 2 
403 
404 



LDX «4 
LDA P 

STA 10B,X 
I NX 

STA lOS.X 

LDA /roe 

LDY 4*1 OB 

JSR *3D9 

RTS 

DFS SFF 

DF5 *FF ;CC9^TIENT 
Tni_lJGURS * PETITE CLE -URAC" 
LM DF5'*1 

5YM DF3 *1 iPOSITlON 

tPETlTE yRAC D^WS SON BLOC 
LUT DFS *1 iLQMG. UT 

ILE + PETITE CLE VRAC 
L\ST2 DFS *1 liOHS.. Ur 

ILE D'UNE CLe Dtr yPAC 
SY DFS *1 ;POINTEUR 



DANS UN 
100 HEX 

ADR 

HEX 

DCe HEX 
DCM 
END 



BLOC DE URAC 
016a620000C)0 

DCB 

0000000001 00 FE6O02 

OOOIEFDQ 

■INT" 



A 

30 



Porto's 15 



Recdpitulation REC.OBJ 



9OO0 ■ 
90Qa- 
^010- 
9018- 
9132D- 
902Q- 
9030- 
?03a- 
9040- 
9048- 
9050- 



A2 
BJ 08 
18 C8 
08 DO 
F3 E4 
IB 9D 
DA fiA 
Bl QS 
OB 90 
08 00 
A2 DO 
02 M 



B-6 \A 
85 IV 
84 10 

IB 00 
6E 91 
^3 IB 
9D 3F 
5F 90 
8F A9 
AS fB 
Q] OS 



3d 

BD 
CS 
2B 
AS 
1 a 
90 
A2 
01 

ie 

00 



J D 
BL 
AF 
F4 
A6 
1 A 
^3 
C8 
00 

as 



AO 00 
OB 85 
90 Dl 
SiA DO 

E6 

19 f^e 

E8 Bl 
C8 Bl 
ID 40 

I P <£9 

60 



Recapitulation CLAS.OBJ 



lOOO- 


PiV 


U ] 


A2 


oc 


9D 


EB 


14 


A5 


1009- 


09 


93 


ID 


A5 




DO 


53 


A5 


1010- 


07 


35 


le 


A9 


00 


S5 


EB 


35 


101 8- 


EC 


AZ 


OB 


8E 


E7 


13 


A5 




1020^ 


90 


EB 


1-1 


E8 


A5 


le 


90 


CD 


102G- 


34 


20 


03 


12 


A4 


EQ 


A6 


EC 




C4 


IE 


DO 


04 


E4 


IF 


FO 


1 5 


i038- eo 


OF 


DO 


07 


C8 


84 


EB 


A2 


1040- 




FO 


01 




EC 




IB 


1049- 


A? 


a* 


4C 34 


19 




IB 


fi^ 


1050- 


18 


85 


F» 


t& 


EO 


10 


DO 


03 


1058- 


C8 


04 


EB 


A2 


00 


86 


EC 


4C 


1060- 


aa 


I 


A9 


DO 


85 


EB 


85 


EC 






lt> 


AZ 


09 


9D 


EB 


14 


20 


1070- 


D3 


12 


A4 


Ed 


A6 


EC 


C4 


CE 


1078- 


DO 


04 


E4 


CF 


FQ 


05 


F^ 


ID 


1080- 


4C 


53 


10 


Ed 


10 


A5 


ID 


85 


loae- 


FA 


A? 


00 


89 


FF 


93 


EB 


as 



I D90- 
10*8- 
lOAO- 
1 0A8- 
lOBO- 
tOBB- 
lOCO- 

toce- 

I0D8- 
1 OEO"- 
1 0F9- 
l OFO- 
lOFQ- 
l 100- 
1 108- 
1 no- 
il I B- 
1 120- 
1128- 

iiso- 

1 140- 
1 148- 

1 150- 
1 158- 
1 160- 
I I 69- 
1 1 7Q- 
l 178- 
1 190- 
11 89- 
1 190- 

iiisa- 

llfllB^ 

iico- 

Jl DO- 



EC 85 
UU VD 
4C 03 
00 Bl 
85 D7 
t9 AS 
AB Bl 
IB C3 
06 12 
IE FO 
13 FO 



E6 
13 
IB 
20 
A5 
9D 
A2 



M EC 

FE 6Q 

18 69 

07 9t 



5d 
81 

E? 
BD 
E? 
85 



D3 4C 
14 DO 
F4 ID 
03 
69 03 
OE 11 
Ca AD 

14 

at 

E4 

E7 14 



FE A9 
EB L4 
12 A5 
lA 85 
CB B4 
FB IB 
lA DO 

03 20 
IB AD 
14 C5 

At FB 
03 4C 
U3 1 8 
n 4C 
9D 00 

03 Ee 

90 EB 
E8 ED 
00 B6 
A4 FE 
02 SD 

18 ca 

A5 IB 
90 CO 
DO F4 
IZ -91 
00 FA 
84 FE 
9D I 1 
OA E-1 
4C FE 
4C F4 
18 63 
A4 

ES t4 
FC Ad 
SB E7 
EF DO 
IB 69 



02 35 IE A2 
A5 06 03 
07 85 IB AO 
ED C8 Bl lA 
FB Bl 1A DO 

63 ED ^9 02 

64 £6 IB A3 
OA £6 D6 4C 

13 Fd 27 AS 
OE 12 AD E7 
Fa 1 4 A2 00 
D7 QO 03 EE 
Bl lA DO E7 
7F 11 A5 ED 

65 FE 90 32 
3A I 1 AA FF 

03 A3 FC E8 
B6 FF A5 IP 

14 20 D3 12 
to DO 04 E6 
EC A-D 00 84 
AS ED 91 IB 
E9 14 C8 A5 
S4 FE A4 FB 
95 If^ A2 00 

1 2 EG CQ EC 
A4 FE A2 00 
18 Ee EL 
A9 00 91 IS 
4C 89 10 FD 
E8 CB AD E6 
D7 FO 03 4C 
10 EG ES 14 
10 tE 18 
FE 90 03 20 
A3 EF 91 IB 
91 tflAa,E7 
EG I F , GB 

13 9t 10 E» 
F5 M re AB 
EF BS CE A8 



1 3D8- 
1 lEO- 
llEB- 
l IFD- 
IIFO- 
1200- 
1208-- 

isao- 

1^2!^- 
1238- 
124D- 
1248- 
1250- 
1259- 
12*0- 
1 268- 
1270- 
1278- 
1280- 
1288- 
1290- 
129B- 
12A0- 
12AB- 
12B0- 
I2fi9- 
I2C0- 
12C8- 
12D0- 
1ZD8- 
12E0- 



81 IC A4 Ft 

A4 CE ca Bl 

19 CB A9 00 

A:S no 

OB 10 AD E7 



OE II 

13 FO 
99 ID 
f d 83 

flD fftt 
as ^ 

14 -A2 
E4 FD 
12 AD 
02 A9 
A5 ID 
12 AO 
FO AD 
IC C8 
DO BD 
14 CD 
14 Bl 
FO 18 
IC A6 
OE EB 
36 12 
08 EC 
17 FH 
12 ^O 
85 ID 
?1 J C 
EB 14 
A? 14 



60 20 
F4 4C 
All 00 

CF Ba 

14 CM> 

Bl 10 



91 LU 

IC A4 

91 18 

EB SA 

13 DO 

0€ 12 

9D 11 

8C E7 

FD ca 

C9 FF 
&f 14 
FO 13 



00 90 E7 13 

FO 05 51 iC 

EA 14 16 63 

ei IC 00 Of 



C5 FA 
00 FO 
Bl IC 

ec £A 

E9 14 
E8 14 
IC FO 

GO as 

ID 96 
14 A6 

E8 ca 

E8 14 

F9 1 4 
E7 I 3 
AC E7 
60 fl2 
E8 A5 
AO EB 



90 03 
ED AD 
85 FD 
14 C9 
A2 00 
80 03 
BC DD 
AC 

EE AC 

FO a* 

AD E^ 
DO D3 

FD 

FO DC 
14 88 
04 rt5 
EC 90 

20 09 



t6 Ft 

FE 91 

84 FE 

I F 4C 

0^ 20 

fi'O E7 

A5 09 

13 Bl 
Bl IC 

m 21 

A5 lO 
OC £7 
C8 EB 

4C 3B 
FD 6? 
E^ ID 
4C CI 
E? 13 
Ce Bl 
FF FU 
3E E6 
EE E6 

E7 la 

14 at 
E? (4 
ET 4C 
14 DO 
4C 4? 
4r B9 
AS EE 
A? FF 
EB yo 
EB 14 
03 6D 



TABLES 



14EB- 01 60 02 00 OO 

14F0- 00 FC 14 00 00 DO 00 01 

14FB" 00 FE 60 02 00 01 Bf OB 



VOUS PROGRAMMEZ SUR APPLE II 

VOUS VOULEZ GAGNER DU TEMPS 
VOUS CHERCHEZ A AMELIORER VOS CAPACITES 



LIGHT EST FAIT POUR VOUS 



LIGHT t'^l un ensemble de puissants iogiciels 

d'aidc a la programmalion com u pouri 

- mieu^ gerer It's lit hiors el les dlsqiic'llcs 
mise a jour d un catdlogue general 
^lal des s^tfeurs Hbres i^r un disque 
f^illter I 'exploration el rexploltation des disquettes 
accej* direcl; leclure, ecriture des secleurs 
translert et recherche des sequences d'oclets 
actel^r ^analyse de vos prdgi-ainmes 

en Bt^siL: ruiJierche des tokens et des suites designees 
en Binaire: impression en desassembic de sequences 
d'octets; pistage en tout ou partis du d^roulement 

Immc d'essais dans Pm's iff 3 




POUR EN SAVOIR PLUS SUR UCHT : 

M. . 

admse. 



demandc one cliKrumcntailiiR lompMc, saiw ensagemeiit ite sa pari, am Annees Neu^elfes, 70, me du l^velot, 75013 Paris, 
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MAC crhier 




'X- 



Nous vous avions prom is gn 
caM«r Macintosh (Sans chaque numfro 

de Pom^s. Void le oremier de ces 
c^hlers. Vous y trouverez, outre les 
rcmarqutfft de cette ooge, article 

3ur les ftOMs au Mac, uji article sur 
la programrr^tlon «^ ^urseurs «t 
enfin (page 49) un tableau avec les 
rense ignements lia plus r&cents sur 
res togJGtels du nacmtosh. 

Politique fidltorlale 

NOUS npus sommes longuemefit 
tnlerrogte *jur 1a Dolftfqoe d siifvre 
Dour nos articles dans le canier du 
riac Nous ^vons Mn^lement decifle de 
malrHenlr, auilveaudu mcintosh. la 
poliLique 6e quaiite de Pom's. c|ut a 
toujours fertis^ nlve-llerneflt vers 
te Das. Nous pariirons aonc du 
prmcipe que les lecteurs Oe Poms 
auEoniJy les modes d"emploi rac 
et des logiciels qu'lls utilisent et 
Qu'll est done inut) le de leyr 
proposer des explications qui- ne 
fjeraient aue rSsumer la documen- 
tatfon. 

Contcnu dc la diaquettc Mac 

Nous vous Droposons en outre aes 
ce numero une aisquetle Macintosn, 
flans laqueite vous trouverez : 
• le programme Dl.^ Copy, qui 
I)ermet Oe Peanser we t<m\e de 
dtaqucttes en tiuatre passages 



avec seuiement. le lecleur integre 

• DoHce de caract^res Catro, dont 
vous pouve; voir les signes en Das 

de Daqe. 

• les programmes 'du Mac publics 
aBh$ lesnumftfls^ 64/^15. de Pom's. 

Nous g|oUteror>$ d la dinette, 

au fur et A mesure, les orogrammes 
des numeros suivant^, ain^i que 
auelaues surprises suppi^mentaires 
que nous vous laissons d6co.uvrlr,., 

t,Ta}^eam)m3ComiHCt 

Pour avoir plus de Mgnes el de 
ColDnnes A I'^cran, ^r.sr'ei 3 raid? 

du fml Hover les polices Seattle ae 
la d(aquette Multtplan. en les 
met^aftt (BfiS un ricmer Caracteres 
arm de p<Hjvoir les rccuperer pJus 
tard, Vous optlendrez alors 20 llgnes 
et 7 colonnes d I'icran. au prix d'une 
bafssede la lislblllte 

Quaou vous sortez de ruiuplan 
aprteavolr copl^ pti^ 50 celTules 
(pareJfcmple oour les tranaffirer a 
MacWnte), le message "Enregtstre- 
ment ffun rmperiant oresse- papier" 
S'arrtche. SMI y a plus de 100 
cellules 3 copier, j1 rautcllquer pour 
demander renrergjatremeflt des va- 



leurs rormatees des vaieurs non 

molns de 100 cefEulesV Dans un cas 
comme *Jang I'autre, vgllde; I'enre- 
gis^ement avec OK. 

3. Tabulation numer^f 

Lorsque vous copiez piusieurs 
colonnes de valeUF^ {}e Hultfplan 
vers. MacWrite, voua pouves realigner 
les vaieurs avec la taouiation 
num^rique (le triangle polntt/ Bien 
cntcndu, e) vous poseedez un 
HdUplan US, (jKiInt tte dic>malJ- 
satiofi) avec un nac\ftHle francals 
(vfrgylc de decimalisation), le 
Ciadrage ne se fera pas avaric <jue 
vtais aye2 ct:ange les \' en ',\ 

51 la premiere cclonne conuent 
des vaieurs numenques, celles-ci ne 
senmt pas tdDuim. Pour atiemdre 

eel objectify 1! conviendra d'ajouter 
prfialaDlement une colonne blanche d 
\a zone d copier vers f^cWrfte. 

A Autres truc^ CutiHsation 

De nombreuK autres Lruts 
d'lttllTsatldn vouG tmt pmto^s dans 
'Mtiltlpian pour nacini&sri", qui dolt 
paraTtre aux Editions flu PSI a la Tfn 
d&cembre Cet ouvrage a 6t* realist 
5 partlr de la version 1,02 de 
nulllDlan en versim fmcaise [aoQt 
1934). 
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Les Routines en ROM du Macintosh 



rou&nes situi^ts daas la aneinohe a 
lecture s^e du Madntosh, Malheu- 
r^iis^ment: le.inanuel (TutfeSc^i 

syntaxe des instnicteiis. ce qui est 
loin d'cirt? suffisant poui unt* utilisa- 
tion optimaltr pjlu^. lif jnaiiufl 
prnpose, poui oblfiiir plus amples 
intormaticns. uiw cojisaitanon du 
QuickDraw Pioyvammifr'5 Guidt \ 
qui n'esl pas accessible a rulilisaleur 
du Macintosh ! 

Devant eel ctat dc fail. nou5 avon? 
pui]^^ dt^voir V0U5 (ournir la docu- 
mentation qui aurail noniiiiik-'mcnt du 
etre joints au manud d'uttlisatlon du 
Basic Mit^rosoft. 

Avan! d'entrer dans k' uif du sui*?i. il 
con^'ic^nl dp signal^?! quy eel article 
nest pa5 un remake?" du Quick- 
Draw Ptogrammers guide ". nous 
n'ii\/nn? jamais ea entre Ics maiTis ce 

Call BatkPdl (VARPTR(F%(0))) 

Cette instruction permet de defthlr 

une matrice 6e ?^»S points (nu pivHs) 
qui determine I'.Hpp.'jri^'ntf du "ford 
I i:^["i"i"in " sur Ifquel sont superpo- 
se^i les carartpR^s} 3 1^ pnnripi^ 
peu pxes le meme que celui uiili.s^ 

dans le "tableau de botd'\ pour 
chdar TaSpcct du bureau. 

L<?5 points ^ Oil" I'liotr) "off" 
Iblanc) 5Qnt d^l^rmine^ pcir I'lrtat des 
d4 bits conionu^ dan^ un tableau de 
4 variables ennere.s. qu^ noui avc>ns 
erbitrairemenl baptise r% dan^ notte 
exemple. L octet de poids fori de la 
variable d'indic*? representij la pm- 
nuere hgnc de 8 points. I'octet de 
pQtds ^ble r€presente la seconde 
U^ 4**.S ^^ftts,. toctet de poids fori; 

v^irfebfe d^indtce 1 repres<^nte 1a 
ttOI^me tigne. etc Nrituns que 
dan? I0 cas d une uliliiarion de I'iri'; 
(ruciion OPT/O/V ZJ/^SZI J, k*5 indiL.-s 
doiveni etre compns entre J v^l 4 

Prenor^. \m ^xemplo concrQl : nous 
vouloiis que reticin (ou |ilut61 la "fe- 

netre de sortie . pour k?mployer la 
lerminologio "NUr" H :,oi1 ivnipli du 
niijt[f suiviini 

^ Poids faible de ¥%(0) 
r- Poids fort, de FX(0J 




} F^(0) 
} F%C3) 



Pour obt^rtir motif, nous .d^Vc4t$ 
affectt^i a nos quatre vaiial^le^ fesvd- 
liaurs hinaives : 

1001 K)Q1 01000010 
OUIUUUX) UKU IDLll 
lOOIlOOl 00100100 
01000010 10011001 

soit, er hexadecimal : 
&H9942 

&H99Z4 

D^ns Ljn programme, p^^rmi les multi- 
ples solutions possibles, nuus puui- 
nons trouver I 

room Fsaj 

20 DATA S.W9Q42,iH2499,iH5924, 

30 TO IS-OTOJ 

SONEO" 

60 CALL B<D^PAT^VARPfW(TK0)» 

70 CLS 

L'liistruction CL5 est indispensable 
car SI ellt^ omt^e. TecraTi demeurp 
iachange. Pour replacer Iccron dans 
son ^ta! Initfai. il suffil de rclancer le 
pro^gtBinfm aprfo: mndifirarion de la 

9.0 DATA 0,0,0,0 
Ges^it du Curseur 

Call SetCuTsor (VARPTR(C%(0))) 

Si vcus etes las de uoir le curseur en 
forme de flee he. vous pouvez creer 
le voEie. Pour celd, il. yu.us fuuifca 
cPiibOfd dSfinir un tableaa cie 34 
tfefekS entieres (indices a 33, ou 1 
a M avec OPTION BASE I) 
nous appellerons C%. 

Us variables .C%tO) & C^Ufi) ffi^int 

iMisfe pdiir d^finir ffi forme An ci^- 
s^ur dans une grille de 16*16 points, 
chaqtie lignt? hnri?nntalp dp tfi poir>ts 
otani affeciee h une variable. 

Us \«i|iabks Q%a^J a Ci^OI) cti^ft- 

permit mi? stiperpositon. a ce qtjt 
est affiche h Tecran. effet. si un 

de?s poini-^ du curscu!" n\'st pris mas- 
que ropi.''.-itiriM In^iqui? XOR i"OV" 
e^^]usii. -"VlI encorb."? 'Tun ou I autre 
mais piY-- Ips deux"! est effectuee' 
entre le pniiit toniifme du curseur 
celui occupant ia meme position &Ui 
recran. 

La ^'i^ri^bk; L'"'\{'S2] indiqu*? [a posi- 
tion vt^Tlitali? du point chaud jw rap- 
poit cui LuiiL supt'lieui ijautht? ile la 
grille lb- 15 Le poini chaud corres- 
pond aux valeurs retournecs par 



Jean-Luc Bazanegue 

La variable C%(33) indigu^ la posi- 
tion hoiizontale du puinl chaud, toxx- 
jouTs par rapport au coin sup^rteur 
gauche. 

Pour iliustrer le fonctionnennent de 

c^tw roijjte^^ npus allons cr^r un 
ctii^tr -^m la fdmie d'un "Mar" 



Curseur c56(o) 




100 Din CJi(33) 
MO REM 

-[^poirlad^finttlondu 
Cirseur 

130 REM 

140 DATA &H7FFC.&HaO02.&H9FF2. 
&HAOOA 

150 DATA WAOOA,aMOQ\ 
1 60 DAT A S^2jW8O0%ftH8OCffi, 

1 70 DAT A &H8002,W«T^,4tM0lU, 

&H7FFC 
1 60 REM 

190 HEH - Data pwr la (Knnltlon du 

masque 
200 REM 

210 DATA &H7FFC,iHFFFE.&HFFFE,i*€00E 
220 DATA i.^€^)ffi,AHEOO£,irtOOE, 

230 DATA S.MFFFE, <«WE, &HFFFE, 

mm 
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2-«MTA WFFFE. W7FFC.i.Hm^. 

2&Q R£n - DataQour la position dupomt 
cnaud 

270 Hin 

280 DATA 5,7 

290 REM 

3T6^%t3ETCURS0H<VARP"ra(aKO») 

Note b routine St'tCur^oi p,i^ 
proi^g^t' conire les pcissrj^ji's iW 
metres invjli(it»s il friui ilmu h}TT<' trOs 
priidcnl. ■iurtoLJl i:ri ce qui nVKeriie 
la posiKon (lij pinni rhaud. si Von ne 
VL'iii p.i- "i'.'Iii'it" tt- HacinBosh 

CaJl InilCuTsor 

Celte inslTuction. qui no roquk-rl piiLi 
d"tiLyLir]ifnl. rOiiiitinhse le cuis<.-jii t'lT 

I ^xt»mple pr^cipdorii I'sr ;ni.ifouir, d^n 
iinemoi[t\ p(.)UV<:V rt^ltlbhl It' CUT- 

seui d nrjgiiie <?n I'liiiant cette Ins- 
iruciion in niiicle immedial 

Call HldeCursor 

bU^ hi^Ti que loujours present- 
Call ShOivCuFsor 

jft Visualise a nQuv(?aii If^ nir^pur 

I CalJ Obs<:!ureClir«ot 

iL^e CEirscur d>?vtent invisible EE<«Tin*C 
ttvev Cdll HjdeCursor) maft r^£^pa- 
ra^ 4^ qu un d^placcment rip la 
sotiris est d^tect^. 
Gestion 4n "qrayon*' 

grapiit.' conditionnehi Ic resultat ob- 
tenu apves executiQii de Coules 

insfTuchons du Basic Microsoft fvo- 

CIRCLE.. ). mais aussi apres ^xecu- 
aon dcs routines graphiques en ROM 

fC^ll Pr^nu.R..ct. Call RIIR.>ci. .•U ) 

Call PenSize (largcur.hauteur) 

D'etcrmtiie' dimiinsn^n.s du criiyrvn 
lou Iract'url [.i.^ ualeuf^ par delaul 
SQni p.c^\{>*^ & 1 pour la Icirgi^ur G\ b 
hauteur, 

Lcir^quc I'on ti^ii:t' Lir"ii' Ii^^eis^, let Icir- 

qeur du Jiail esi rt^porlee vers la 
droitiJ par rapport aux coordonnGes 
horizon tales. al->i5 qu^ \^ l"ciUlt^Lii til 
reporter vers Ic has par rtipporl aux 
coordonnees verlicales, En revanche. 
PQUi les fiiQuiei Tynnyes {un recfiin- 

de, par e>iiamErie) ou un arc {te c^- 

Tepaisseur du trail vsi tapott^e B Yin- 
terieur de la Jigure. 

Cctte instrucfiOT fonctionne e>;acte- 
ni«nt de rrt§nie fe^ori que CuLi 



rait done superflue. 

Cat] Penmode (mode) 

C^ill FV uniodk^ dt')i-^Tjiiii iJr^ li' tuiMi'iJi- 
[fmcni di.^ iii^lruciiOTihk ou routines 

t^ra^jliiL^iLh"^ rapporl a ce qui Qst 

iillii lif a reuan, 
mode = (S 

II du mode normal . les points 

constant la la feurti, qu'ils 

soi^nt "on'' an 'off'", rrfcwquPTif re 
qui '3G irouve sur I ecraiT, 

mode = 9 

L' operation logiqut? (OOl ^! r^- 
lisee ^nirt* lc5 liyne inu kj fiyuit?) t!l |y 
fond Auircmenl citl. Ifs pninl^ "on" 

du fonil I'l df la lign<? ^:("jt"i[ ,^ffic hi's 
[>Mr|> If pt'lil I-ilbll^tlU pldCt' k.l-d^.'S- 

^(.ui^ la pr^'miert^ rolonne de chiflte^ 
leptesenle [loifU^ de la lit^iit^ a a[- 
iichet (1 - puiiil ''n\". i) - puiiil 
"off" ), la si?condL' colunnt? mpv^enlt? 
Igs poinl£ d^[a presents a I'l^cran i?l ki 
trolsi^me indiqut^ If r^suUai de Top^- 
ratioa 

1 OR I - 1 

1 OK = 1 

n OR 1 - 1 

OR U - U 

mode = 10 

Ce mode autoris^ uin? operfttii^n logi- 
que de type XOR [OU exclusif]. Us 
points "on" du fond (?I de la Itgne 
sont nffiche^ fauf si un point "oil'' 
de la liyne cot respond a un pd^t 
"f>n " du icjnti. Dans tas. le point 
resultant est "off" iUtncl 

1 XOR 1 = 

I KOR (1 - I 

II XOR 1 = I 

fi XOR n = 

mode ~ 1 L 

Op^FQticm logiquc ANO (ET), Les 
points resultant de Toperation sont 
"on" uniquempfil si Ips points corres- 
pondante de \q ISgne et du fond sont 

'on ' 

1 AND 1 = 1 
1 AND U = It 
AND 1 - 
AND f) - 

mode = IZ 

Tous poifii?^ consitiucint la li<^ne 
sont d'abord i oversea [NOTl puis 
sont superposes auK points definis- 
^ifn"[| If foird 

NOT 1 = 
NOT - 1 

mode ^ 13 

Double operation loi^lque NOT et 
O/E Les points constituant la ligne 
Sdnt d ^bord inv4?r^*^s (commc avec 
12}. er sont t^nsuile Lraiies comme 
avec ' modt^ - 

MOT 1 OR 1 = 1 



WOT a OR 1 = 1 
NOT 1 OR = 
NOT (1 OR = 1 

mode - 14 

que pour I aigum*'nt p;ccedt?nL niisi^ 
a part I''}pi.^i,itioM bsjiquc OR. ici 
If injjldL"t'-L" ]hu Si )R 

NOT I XOR J = i 
NOT XOR 1 = 

mr }x<MG = 4 

mode =15 

ss^cond operateur logique est cette 

io\$ un AND 

NOT ] AND 1 - 
NOT [1 AND 1 = I 
[NO] 1 AND U = I) 
NOT n AND ■ 

Afin de motire en evidence une des 
possibites de cette routine, nous vou$ 
propn<;ont; un p(?til c.mm\%U'- qui ^rffi- 
che iin lexte estdmpfi, ii'h manfee 
lies mt>nusdu Mac, 

lOCLS 
50 NEXT 

60 CALL PENPATtV^PTRtF»(OJ)J 
70 CALL TCXTrOKTtO) 

80 CALL PENrtJDEdn 
90CAaPEN5IH(1,I2) 

TOO WINT XaractfrrM est«np*s" 

llOLIt4Et2,2Ht40.2) 
T20 SOTO 120 



Call GetPen tVARPTR(P%^0))) 
Cette routine retoume la position 

coMtairie du Gfs^on elatis P%10) 

(coordonree hc^aspTitale ) CaW Get 
pen pemiel au^ ^^^i^-nir ou ^L^ra 
^iffirhe [av*^ PRINT ou WRITE) h 
prochciin textc on nombro. Avcc OP 
TiON BASE i. il faul uiiliser les incfi- 
C^S 1 el ? 'in de et 1 

Call HidePen 

Inhibc ie crayon. Tout sc p3fise 
comme si les Insdructions graphiques 
^aient ignor^s. 

Catl ShowPen 

Rc<fcfhtiG Son Mfeacitfi au crayon. 
Calt PeaNohnal 

Le crayon rej^end les caracteristi- 
ques qui lul se^t ^fiuees au mo- 
ment de Hnifiaiisation (ualeurs par 
d^Ut. Coll PenSi^ed.l), Call Pen- 
ModejS). etc...)- 

Call MovcTo (X.Y) 

Dppli^t:(* le r.fflynn, .sans Irarpr dp. 
ligne. □ lo portion t^jrizonteje X et d 

la posidort verBt!^ Y, 
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Call Move fXR.YR) 

D^placcment r^Jatif XR points par 
Tt^pport a 1^1 pciBition horizontals ac- 
tuc))e du crayon et de YR points par 
rapport a la position uertica]^ Ainsi, 
si b jEWJsifion dourante est ; H = WO 
et V = 100. ftosSuctiOii ^^all 

fem|:^cement : X ^ 110, V = 90, 

Les instiucticjiis MOveTo 61 Cdll 
Move. ?)euvent avtssi #&e iiffisfes 
pour d^iermirter Uv po^fion jiT&- 
chains caractered aHich^ p;ir PRINT 

ou tv/rn^. 

Con Lifteto (k.V) 

Tr^irr^ unp lignp pn^rg 1? position coa- 
rante du ctayon et les coordonnees 
X <hori2oniale) et Y {vcrtcalc). 

CaU Lioe VK} 

I race une lignc enlre la position eou- 
ranie du crayon ct Ics coordosiTieGs 
HjlatiVHS XR el YR (voir Call Move)- 

Gestion du texte 

Call fcxff'ont [police) 

Auiorise \e choix de 1^ police tie ^a- 
racleres. L^s indications foumi^s ci- 
des^ious sont valabks avec litr "^ag- 
sier systSme" standard. les diyurTienls 
pouvant donner des resultats diftc- 

avec un dossier "^NdoOille^". 

• . Chiicago 

• I New York 

• 3 Gcnev© 

• 4 ; Mof teJtG 

• & : Veriiee 

• 6 : London 

• 7 - Athens 

• 8 San Francisco 

• 9 : Toronto 

Cdtl T«KfPace (aspeel) 

Determine I ii.sj iticl du ItxEe. La luu- 

tine utilise J bi|s ds pi^^s taibla 
rfe TifrgtjHiGnt de la n^fere BsM 

van [4? 

• bii U 1 i ) - (jra5: 

• bit 1 (?) = Itaiique: 

• bit 2 (4) - souligne; 

• b\i 3 fS) = relief; 

• bit4Jl&) = ombm; 

des caracl^res: 

• hit fi (64) = espae&fdus-imptafeat 
entre les.c^ract^St 

Ainsi. rargument 7 (1 + 2 + 4) cor- 
respond a; ^as + soulign^ + itati- 
que. afHche des caracteres stan 
d^irds.- 

La hauteur des caracter^s alfiches 
est, par defaut, de \2 points, Cefie 
instruction affecte qua coracl^es Urie 
hauteur ea foncCion de l argument 



• Une oalcur negative inhibe I'a^- 

chage. 

• redunne aux caract&res leur 

taille psr defaut 

• 1 'plants" It? Mac ' 

• 2 €i plus indiquent la iiauteur des 

I! QS\ possible do doiiner ijux <;ai-cic[c 
re:? unt' hciuit^ur de 3 ou ^00 poini^i. 
mats la li:i;ibililt' ri'cisi pa^ [res bonne 
[die mciTiL' frcinchiiTTiL'nt niL^u 
vai^e ') D*? riMTii^^'fE' y^iier^ili?, il vaut 

mem sen lenir aux lailles lecom- 
maivdees par MacPaint et MacWrite, 

Le but de cette rnstaiction est sensi- 
blement le nneme que celul de Call 
PenModk? pour 1-^ crayon, avec des 
po5&ibihte5 iiigins eteiidues, 

mode = 6 : les earacleres sorit stjper'- 
poses a ce qui se trouve sur T^ran 
(Identique a Call PenModo(81|. 

— I npi^ralion loyique OR 
(idenlique a Call PenMode(y)). 
m&d^ ^ 2 - operation logique XOR 
(Mwtiqt^ a Calf PenModedO!) 

mode — 3 ; les caracleres sent affi- 
ches en blanc. et ne sont done par- 
laitement lisibles que sur un fond 
nolr- 

Call PrameRect 
(VARPTR(R%(0))) 

Trace le conltjur' d'Mn reetan^s dont 

quatre vtirtaiSks "enS^s Hu tableau 
R% 

• R'^i(O) - cote superieur, 

• K"l.(i) ^ cote gauche: 

• R%(2) = cote inferieur; 

• R%{3i = cat^ droit. 

L'aspec] du iiace est conditionne par 
les instructions Call PenMode. Call 
PcnSizc at Call PcnPi^t. Si. pour ces 
insirucdons. nous copservons les va- 
leurs par defaut, Gall Frame Rect 
doime ]e mfeme rifeuftat que 

CaU I^tRect ( VABFnMB1S&(0))) 

Remplit un rectangle dont les coor- 
donnees 5c tiouvent dans le tableau 
R'^^. av^ic It' rnoiif initialisfi par Tins- 
truclion Call PenPat, 

Call EraseRect 1VARPTR{R%(0))) 

El^e la pa^S de l^Scran coinpTise 
dans un recCtiJigle dont Iks coordon- 
nees se troiivent dans le tableau H.%: 

Call InwertR€<rt (VAIIPTR{R%(0))) 

Inyersp T-z-faf di?s poinl^ situes 5 I'ln- 
terieur d un rectangle |NOT|t 

Call FillRett 

(VA8PTR{R%(0)J,V^(WPTH(F%I0») 

Cette instruction comWr»e Call Pain- 



#?ect et <M F^Tfiat (5^ ficymet ^te 
remplir un rectangle sans rrnsdlftcr Le 

motif affecte au crayon LeS Gpor- 
donnt^fis dii ri^rlangle snnt dans.lfi trj- 
bleau R'\'j et le mofif se trcflJve dan? 

ie tableau f-'^V-. 

Rectangles aux angles 
arrondis 

Call FTanipRoLindRcct 

( VAKPTR(K%(0)) , AX, A Y) 

TidCf It ijunluur d un recldnyk' fsux 
angles anrondis Les coordonnci.'^ du 
recTan^lf ^onl dan^ le tahk^iu R"i 
Lts caiacseibiiqut:? dt' ["jrroiidi iont 
determin^es par AX <axe horizontal 
d'une ellipso} ol AY {anc vertical). Si 
AX eL AY sont egaux rarrondi est 

Li-'S instoCgfms PaintRnimHRpr.t. 
EraseRoqneKbct, InvertRoundRect et 
FtllRoundBeCt fonctionneni de la 
m^me fa^on que PaintR(!ft, Brflse^ 
Rect. etc... avec en plus les vdetlfs 
AX et AY poUr les arrondis. 

Ellipses 

Call FrameOval 
(VARPTR(H^SilO))) 

Trace le contour d-.iine ^ipse inscrite 
dans un rectan^e dont !es coor- 
donnees se trouvent dajis ie tableau 
Fi%. 




a R%(2) - R%(0) esl ^yal a R%13) 
- R%{11 Jlnstmclion trace le 
contour d'un cercie. 

Les ioSructions PaintOvaL EraseO- 
val. rnvertOval ei FillOval sont 
comparahlp-^ a Paintfect. EmseRect,. 
etc... mise a part letif QCa^ SWt 
ellipses aU lieu de recbtfi^es. 

Arcs de cercles 

Call FrdincrArc: 
(VAHPTR(R%(0)).AD.A) 

Trace Tare dun cercle (en tail, il 
■S^^l^ fdut^ d'un "arc d'ellipse") ins- 
crit dsns un can'e fictif [ou un rei^an- 
glfi ili.inr Ih'^ coordonnees se- t^u- 
veni d3Ti!^ le tableau R'^. 

AD correspond a \'&\^^^ de d^aii el 
A a Tangle de l arc parrapp^ 3.AD, 
les valeurs etant d9nni^ ^ degres. 

Ignorfe: 
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PalnlArc. Erasc?Arc. 

elc... louJ en utilisant le "systemia an- 
guiaire'^ de FiameArc ■ 



Au sujet de I'article "Lcs 
routines en ROn..." 

Coram^ nous le signalons dans le 



paragraphe "Geslion du te>!te\ la 
ruutine "Call TextFoni" peut aonrwr 
fJes resultals differents -selon U 
Version du dossier syst^me. Les 
choses allaTit tres vlte, nous sommes 
d^j3 amene a vous inaiquer les 
modifications a apporter pour le 
mmm -m^^ s^-eitw mmr 
version t.lj i^flls^ pour la di3<iuette 
Pbm's. 

.0 7 Chicago 

1 - GSTOve 

2 - Wew Vori< 
^ - nonaco 

5 - Venicfe 

6 London 

7 - Athens 



8 ■ SanFrarclsco 

S ■ Toronto 

n • Cafro 

12 ■ US Angeles 



Potr la meme raison, )e programme 
"Fditetr d^ i^rTrtes et cul^etfrS* 

enregi&tre 5ur la ijf5«juette a 5ubi une 
petite moaification, par rapport a )a 
veFSion list<6e, arm quii soil 

CTrtipatible aveC le nouveau systems. 
Pour nos lecteurs qui utlHsent la 
version I 1 du Fmaer et ne ^esirent 
pas acQuerir ia diSQuette. signaions 
otftl siafrtE "rem^c^ Ic "Call 
TextFontM)" de la ligrw !?0 par un 
"Call Te^tFonttsr. 



Caracteres programmables 
sur imprimantes Apple 



Apple Seedriii 

Sur Igs iniiMiji)aQtG& serie imao^ Wri- 
ter ou ^afdlSte DEtiP, la flefinit^ 
caracl&res programmablGS pose des 
IM^blemes (caract^es soultgne5i) liPji 
a la fe^oii ck>nl i'Appf^oft envoie les 
codes a riiTiprimante. Bi e^fel. TAp- 
plesoft positionn^ tt^OUrs \e. hil d*' 
poids ion dt!5 octets a 1, ce qui inter- 
dil d'(?nvo\/tr dt?s caraclferes de 
controk int^rieuri a 12S, 

!l e?t done tiGCGSsaire de passoi p^T 



le liifigagG machiTie pour cnunyar 
tous 1^ caracteres voulus. Le cod>e 
coiiLOTiia sera POKe a une adresse 
donn^e par le programmG Basic, pufe 
repria par ui\<^ poWio routine du i)fpe : 

3O0-AD0703 LDA $:?()7 
'A03 20EDFD JSR $FDED 
3l")t)-&0 RTS 

Dans cei vxtrtiple. It? rodt" ^lura ett 
$307 {775 en decimal), ei 1 appel de 



1^1 routine se (era ensuite par un 
CALL 7W 

Vous trouverez ci-apres un petii pro- 
gramme illu^hant cetle methode. 
De p]u5. cej1ii|n(?5 ifllt^ifact^ iiiLyitffJ- 
ten.t le code CTRL I . 5oit 
CHRSi9i, comme code de 
commande. ce qui empeche I'uti- 
hser dans ]a definition d"un caractere 
programmable. Dans cg cas, il est 
done neces!^aire de neutiraliser linter- 
face (par un PRINT GH^M"?' sur 

?aSti de r^cdiivrer f tjsagc dii code 9. 
On prendra soin afors d'envoyer les 
instructions de neutralisation en tout 
debui de programme et de ne jamais 
repasser par -^iles. pour eviier de les 
voir 5'TmpTimer de fa^on interapes- 
tive. ■ 



Exemple d'utllisation 

20 PATA 1 73 p 7 . 3 , 32 ,237 , 253 ,9^ 
30 FOR I = 1 Tb 7; RBAO Ai POKE 747 + I, 
A: NEXT 

40 REM CONNECTS L'TMPRTMANTE 
50 PRINT CHR* C4^j'PR#l'» 
AQ REM 

90 REM GREAT iriN DU CARACTERE 

1 30 REM 

130 REM SELfiCTlO^E LA U^RtjEUR MAXIMALE 
16 POINTS 

140 REM 

150 PRINT CHR» X27>5 CHR* 

170 n&i DEBUT OU CHARGBi©^T DU C^mCTER 
E 

IPO PRINT CHI^ <27>i CHR« C73J; 

200 REM 

230 REM SEQUENCE A EXECUTER POUR CHAOUE 

CARACTERE 

260 REM 

270 REM DEFINITION D' UN CARACTERE 

E CODE ASCII DEC 49 
230 R^EM 

Si f 

aero poke 775,45'! call ?se 



310 RBI 

320 R01 ^p<'ciffcatfOn cte la Tar^*tir <*j 

340 PRiNT CW» %m>^ 

35d REM 

3oO REM m^m E>U CODAGE DU CaRACTERE 

3 70 REH 

380 DATA 8,20 , 34 , ,^5 ,iS,iS, 34,34,20,9 

, 20 , 34, 65, 65, 65 

39Q FOR I = 1 TO Id! READ A; POKE 775, Al 
CALL 763: NEXT 

40 REM 

410 REM FIN £>U CODAGE 

420 REM 

430 PRINT CHR* C4> 
440 

450 REM SELECTION DU JEU DE O^R 

ACTERES PROGRAMMABLES 

4&D REM 

470 PRINT CHR* C27''; CMR-* t39^ 

480 REM 

4yO REM IMPRESSION DU CARACTERE 

50 n RFM 

510 PRINT "I 1 1 1 J I 1 I J I 

1 1 I I 1 1 I I 1 1 i- 

5?Q REM 

530 nm R'ETOUR AU JEU DE GARACTEfieS NOR 
S4;0 

550 PRlf4T CHR* t27>f CHR* <W 
56a PRINT CHRIt <4>f"PR>iO"^ 
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les brancl'ite e 



Pcurto 



Enfin iin.clubavec 



J s les pasiiionnes dq I'Qrdinateb 
ceux qui |le sopt mdinsTApple 



pour 



comprenare, pour ^ 
Le Club Apple, c'es 
'est le truitde 



des id^es let de 



iagner, pot 
; I'espnt 
la passion 



r personnel, 



lance le Cjlub^pple, 
S seniices 



r s'evader. 
e. 




Pour en savoir plussur le ClubA^PIF^tefruitdela passion -etconnaitre tousles avantagesquenousreservonsaux 
membres du club, dccoupez des aujourd'hui le bon et retournez-le a Club Apple, avenue de I'Oceanie - ZA de Couiiabceuf ■ BPBl, 
Les Ulis cedex 91944, Vous recevrez sans engagement de voire part toutos les informationE pour devenir membre du club. 

Nom . _Prenom . 

Adrcssc . 



Code postal 



II etait temps qu'un capitaliste 




LENIN 




KARL 

MARX 



DAS KAPITAL 



fasse une revolution 




PEACHTREE,LACOMP 
QUE CE N EST PRESQU 




U comptabilite, c'est hnz compliquc. 
faslidieux! 

Toul cela (-fail vrai avanl Mac AccounlinE- Avec 
Mac Afcountiiig. If nouvcau logicic! dt- ffimptabilitt- 
Pcachtrec. finis It-s livrt-s dt L'aiss<' <-n dtnjx vx^m- 
plairrs, finis Ic.s bons de caissr, finis les carbunes. 
lerminft'S les mises a jour qiii font perdrt^ du temps. 
Mac Accounting est im progiaminc cuinplablr dt-ve- 
loppe spfrialrmenlparPeachtrt-e pour le Macintosh. 
Et dans II^ doniaint- parliculit-r de la eomptabilite, 
la c*>mpptence de Peachtree ii'csi plus a prouver. 
Avtrc plus df 100.000 ulilisaleur^ dans !e mundc 
ontk-T, Peachtrt'c possede un*^ Ires large cxperifnce 
des besuins dt's petlies ei nif}yt'i]ines enin^priwes 
en matiercde comptabilite- SpecialcnLenlrtudic pour 
un utilisaleur n'avani aucune connaissance infor- 



matiqnf prealablc, Mac Accounlinp: est cnni^^ii puiir 
elrc Ic plus procht' dcs systc-mes maniicls... avcc 
I'exactitude t*l b rapidite des solutions informiilifjues, 
Un ciim[Jtabl^' rcconnait inuncdiatcnu ni Ics pagc5 
d'un journal de cai^se ou du Grand Livrc : cVst 
exactemeni qu'if ivlrnuvera sur Tecriin du Mac 
InUish Inrsqu'il utilisera Mac AccounliusLj. 

Mac Cash est le prcniier des deux program- 
mes qui constituent Mac AccounlinK- C'est unlivrcdc 
caisse sur ecran. Ideal pour les PMF-l. ses carac- 
teristiques parlent dellet^-memes. La lallledu journal, 
W tilre des colonnes, la pcritide comptable el les 
tonniitti nuinelaires sonl dcfinis par rulilisaleur. 

Mac Ca^h accepte jusqu a cinq tanx de taxe. et 

huil col(>nnes danalyse des prix hors-laxes. sa mise 
a jour est autiimatiqiie ;ui fur rt a mesnn' dt- la 



40 



Pom's n 15 



TA DEVIENT SI SIMPLE 
E UN PECHE. 




salsi<.' dt's oprratious, nifin rutilisalriir spmili' liii- 
nieine It's modifies dt'S etals de ^iirlit't'l li'ur ninlaui. 
Bref, un outil simple et pL^rlornianl. 

Mac Ledger est sot'otici iiuidiik' cK' Mac 
AcanitUiii^. ccsi la panic cnmplabililc trentTali\ 
Lc formal du ji>urnal est standard cl pcul Hrv utilisr 
aussi bicn puur h*s c^iriipti'S [(nimiss*Mirs qn*.'* pour 
Its compiL'?^ clii-nts.- L'utilisaieur dcfinit lui-nienie It- 
formal drs fiches niniptablt-s qui st- sele^linnnent 
facik'nuf-nl a I'aidt- dc- la t>uuris Mac Inlo^^li, Lfs 
operations aaisies pt^uvi?at elre aiialysees par typt* 
de pnjdtiiL par If rriloirc, par vcndtnir par loute 
autre variable- definie par Vuldi^^ateiir.-. 
Les crcaiKi's snni arialysees sur rnn^; periodes. 
ce cjui facililt* cimtrole et rcitjusli-mi^nt. En reiiume 
le comptt-meni indispensable dc Mac Casli. 



Dcrnirr avanla^rc: Mac Accoiinlini? a ete 
con<,Hi i n tVjinvais el peut elre utilist:- par n'lEiiporle 
quel iitilisati'ur t'H moins de Irente niinules. 
Lc doule nVsl plus periiiis : avt-c Mac hiiosb i t Ma,c 
Acrounrin^la ciinijilabililc'iievienlsisiniploquecest 
presquu im peche. 



IVachtrre est distribue par I -opciel VL : bd Pereire 
75017 Paris. Tel; 7ia<i2.8H. 



Peachtree 



hoi 



Pom's n' IS 



41 



APPLE 




SANS MAUX DE TETE 



ayecles livres RS.I. 



m 



La pr^dqtie lie I'Apple II 

ttc ciuTra^i jjn^nie lei ifrfClliCHes 
du Qaatc Ap^ilemlt panir d une 

dc pro gnunmation, dt iuir>pm<tian 
ci d'aiktmbnon dc dusira ti j;jjplii- 

d'orrmptci illusti-iiifie[d'e»erLkm 
I2B pages- 60,00 FF 

La pratique dc TApple II 
vunc 2 

par N'coft Arfnod-fouticfurp 
(_e second valurrw la praiiqut d? 
"Apple ri e5i coraicrp au sysieme 
d cvploicaiion ditque, a Ij gesiion 
Oes liciiien, a I'lmpre^iion pi aux 
iTnprirnjnie^, a \a cne horlojje 
Applectotk Uonombreujfen^FTiples 
programmes illu^rcnT lei lone- 
iioift ei lEs comFnandoi decntei. 
120 pages -B0.0OFF 

La pr^Ciquri> rte TApp-le II 

[□rw ? 

et Dapief-jmo Divjd 
C? volume CSI nnp iniitgtfOn J \a 
prograrnmaiiar en lAr>g3gf<- n\achinE 
6502 doni (e leu d'lrnrriFritioni at 
expliqiic p[ iitiliw I 'Kvmblffur- 
s-ymboliqut ei se^ logiciel^ conncne^ 
r TOMi decfui Linieratuofi ayec If 
Basic el avec le ^rtieme ye^T g?ud(Ee 
176 pag»^« - 90,00 FF 

Cirfi pour t'Api^^i.- II 

Unsure dt r cfti vnCE, flain Ij COlleC- 
HoTF "McnitiriEm" , deiMie ise [rou- 
"tr cn pcrmaritm.t s coi€ Cartll- 
FMTBur Apple 11 Supi buL (-51 I'accei 
rapid* fl rn[orn-La[n>ii ))<ri[iiiiF des 
commiinclcs, cnaih;* Cfl] JlLFii:>. ntes- 
agM d'cfcurs, toilei machine, 
adre^ECB uiiipi II coinponc r^dlc- 
nnflnc jn retUCil dc 25 t.p"UCi'" uhIcs, 
lei "Commein , 
144 pag« ■ 100,00 FF 



L'Appk el lei flchiers 

par J<K<titei bO'SgOniiei 
P'our apprendre prO|rpmvpment |j 
programmaiion dci ipplicatiora mi- 
liuni les fithien^ I outrage com- 
mence par Li"e pre^entaLion concise 
et illusiret dcs co-mmanfles du Ij^s- 
teme d'Exploiwuon Diique ec dci 
iiairLiciiDJti du Basic Applesoft. Lei 
imirucLiDn^ des fichiors sequence I& 
ti A dti^H direct 5oni en^iTC decri- 
Lci aimi (juc leur uiilmtion. Osi 
mcLhudti ij'iiLiqjes, souvenc mal 

connue^ rnaim i^iiL LurTiPrieriL uillivr 
au micun del ftthieck a di^ct J direct 
accei itdcHc, iLiie iitv-EiM: Urie 
vjn^Minc di: programmei illuMrcul. 
I'uilCruiion dt cei techniques, 
le Hvrr; : 176 pages < 90.00 FF 
La dlsquecte d'accompagne- 
ment : 195,00 FF 
Pour Apple h, II plus, lie - Dos 3.3 - 
version 48 IC on plm 

MultipUn pour Apple H p\us 

n r- 

MiiliLfilan pst un progiciel quh p«r- 

timijJTanpmpn' fot ouvrage lera 
pour Ics poneaeuri d'ordinitpun 
Apple II PFm Ou//^iiiL ^renuhlEgmilp 
d'uiklLiaiion de Mukiplan .^racea dpt 
eitemples pro^re^sifi et a dc mnm- 
breuH cAi d'apphranon Igesiion dp 
paricrleuiHe^, de capropriece. fe-uillE 
dE pjse. irnpoii, rableaiiif 6t b^rd. 
etc ] 

Lc livre : ?I6 psges - IOO,M FF 
La disquette d'accompagne- 
ment: 195,00 FF 

Puup Applt: II plus, lie - Doj JJ - 

miiiTreu« Multiplan mdiaptii^lilir] 

Vi^rcdlc ^ur Applif 
pv *V#rve Th'fitj 

Aprni une prPujniailori progrcsiive 
du modala Vnicalr. Tiuvi^gc ciudpc 

nombrQuH d'jppJiCJiion 
'pt"|le d'impol, gfliiiDiL dp cop'o 
pni^ir paye. FjcEursEion . , permcc 
r.ini d'lnirDdirirE Iqi dlffere./ktc-: 

Le iiwrc : 176 pages - 90.00 FF 
La diiqueCte d' jccui npagne- 
men^ ; 195,00 FF 

Pour AppFe 14, II pJus, lie - Dos 3.3 - 
versioJi K, oil pfus jOiiqucHe 
maliresse Visicalc mditpenubic) 



UCSO sur Apple II 

par iacquei PottauU ei Potrne Q'fotd 
Lardmateur Appl^ ||, le liin|;4£G 
Pascal et le sr^iemc d'exploiiation 
UC^D formeni a euic seuls le plui 
pent ensemble dt muLro rnloi' man- 
que prDfe^sionr^elle Line premiere 
prme de cet Quvra^jQ e^; tonsicrec 
a I etude ces iroi^ elements Sont 
eosiKte abordeL les programmei de 
mit&er>rauie Eniin ie? types euDs- 
liTjciiorn Pascal UCSD soul eujdiei 
en derail, ce qui p?rTi>enraau lecicur 
de w rendre compie de la richesw 
rriais aussi de ra lacrhie d^emploi du 
Pau:^l 

Z32 pages - J 10,00 FF 

Gp-^tinn iJe '(chtert 
dc pcnphcnques 
poui Applu II Pa^ul 

pUF hcnc Hau[ 

Cc litre propose un iw^en rap me 
et f.u.ilc pour ^crer les lichiers ei les 
pvriphen^uui ujr Apple. De 'Jges- 
tion de biljlFuUivque a I 'utilisation 
del pcripficnqut^ii I'duieur propo^f 
un crLicmttle de piU^i drniin-^ uvilt- 
iU'rea, ecrrti cn rascal Un cxpusc 
dc» techniquEi lea plui elabt'iceb 
pcr«nctirB d'aciemdre le niwtiu -.mU 
i\'AT\i prjgr ui'liicr Ic3 mcihft^ei dc 
pragramn^lPOn rrijsci cn ccuhIC 

176 page«-9S.OO FF 

Les bases de donnees 
Mir Apple II 

Dcrr Mfcf»J Ktllct 

L obiei cet ouvnse «[ d'iider le 
letieur a 'aire un choiic parmi les 
nombreujt bjiciels enjslancs sur 
Apple Quatre de ces loKicfdi lont 
seleciionnei ici Pf S et PFS/ftepori 
■ DB Maswr ■ CX BASE 300 - DBASE 
II Pojr chacun on trouve une des' 
cription deiaillee du logiciel lui-rneme 
etesei procedures de miscen route, 
de creaijon de fl^chier, de same des 
donneet, de m^mEeniftce et d'edi- 
[(on L'auteur [ermine ceite etude 
par I'expDse des avancages ei dp^ 
(riconvenienti mherencs a chaque 
loghciel 

144 pages -OS,OOFF 

Microbwik : base de 
donneet pour Apple ^1 

po' Ted Lehvjs 

Microbook est iin systeme de ges- 
Eion de donwes ei un outil dc 
developpemeni de programmes 
con^u pour transformer I'Apple II eit 





un outd dc cTutement dt fiLMrtii, 
de cdledic ct dc rccHerche ^'Kifui - 
motioni, ci dr sraitemeni de dun- 
rtcea. Ceil un cnicnnblc de pp O' 
gramP"« ccrt<3 en Pascal qui fait de 
I Qrdinatcur un ver'tibic bibliQ- 
thecairc 

Lcj cmplob dc Mrcrobook ioni 
■Fiulliplcs rl pFuI circ UtiliH pour 
quuiment lOuEK ICi applrcatra<u du 
Ib nock^ge ci I9 recherche dc dtsn- 
nees eii <mpcirtani« Lai program- 
n^?i ftanc tret longt, il qii recoin- 
mande d'acberer e^algmoni 11 dn- 
qiiPHiii d'accortlpagneanejii:. propodie 
pn dpMK yprnon? ' uhe compilec- 

I -UllrP iT^ldP SOU'rie 

Le llvre ! 248 pages - 13 5,00 FF 

I.E^DlSQUEmi 
D * CCOMFA GNf ME N ^ 
MJCTDllOOH : Ciase de aonneea 
pour flfijile II 

pat Ted icms 

-Gun!£ r-|lCflO 

Apple II. II pliis.//efli/^avec s/sieme 
CdKal (]i^quei[t simple face, compi-' 
(ce, done non modifiabJe 
Prix : 195,00 FF 



Microbooh : bj-.c if dofir#ei 

1 -^i-'irk II 

por TfftLtvis 

lo'un-it SOUfiC t et '■aiumi: LPNIl 
Apple fl. II pliu, //e el //c. avec sys- 
teme Pascal, diiqueite Haceienre- 
gmrees 

Prix : 295.00 FF 

Le s;rsLeme Fast-jl jimsi que les cons i' 
gnci d UE'l^s^tiuii pio^rammes 
conic riui dans le Inn c suriv JPPdi^pen- 
»blei. Cede disquelte cnlitv vn 
dcun vcrsJ-ans ; I'une, dduble 
fjce. desFfucc aux paisj^hhci 
de l:i progranM-nailon en PakbI, 
qup paurj-ont dirccli] m cn ( pro- 
grarrtTTtcr dans cc lan^age, el 
develfpppcr el ctcndrc d leur 
gru lof facultes du jyiftmc. La 
seconds, ccmpilee, «in^ple facc, 
dnrii-iee jun p«r>iDnne^ qui ne 
connais^env pn 1 3 prog ham m^- 
finn en Pk£j| ou qtip n'ont p3< 
|p tf^mp« d« program mar aLle^- 
mFm«-i. el qui detirenf utilibfrr 
directement les mulriplpi pns- 
sibilit« de HJcrahrmk. 
Tou^ les programmes propn^i rLmt 
le livre wni preients da*u rhafiirip 
des disquetles. exceptes les ordres 
pour imprtmanie 
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_ PPENOM . 



Editeur de formes et curseurs 



Pom's 



Lg Basic Microsoft du Macintosh au- 
ToTise Temploi d'lrutmciions graphi- 
ques tres ^uissantes. Ccst Is^ Hp 
PUT, ^ui pcut. 5tre utilisee de deux 
manlgr^ dafferentcs : Cransfert d'une 
m^itTirt? points slock^e par GET 
dans un tableau de variables; trans- 
len d'une matrlce de points creee 
par programmeiir 1.^ s^ronrii^ so- 
luhon est sans doutc ctlk' qui ?t'rti le 
p]u5 souvenl rerenue. puisqu'i^lle per- 
mpl Hp conce-iJoir des. tormj.'^ ire? 
precises, point par poinL Etant don- 
nee la haute resolution du Macin- 
Jr,ri^ h conception d'une fonnc S 
I ciidii d une feuille de papier iljua^^ 
iee demande beaucoup de patience, 
m qui nous a smme ^ ^rir^ ce-t ttti- 

Str6 utilises par vos propres program- 
tTi(*s, Deux cflb pTesenlent : 

Ij Vous desirez que vcrty^ 
cftwnm^ cbntiienne la definilion xSm 
Sjqnes' ou cuiseurs suu^> furmt? de 
pj^TA- Oam ce cas. choisissez Top- 
Bon "imprimGr". qui vous fournit unc? 
i:u\}K -dtri ffiielTL's ^iiyiiiftcdlive!^. ains-i 
que tous \es codes necessaires a la 
constitution do 1^ ii.-.ti;' de DATA (cn 
decimal et liexadi^cimal). Le sous- 
programme de capit? d ecran est 
assez lent puisqu'ecrit en Basic, mais 
cetle suluUoii nuu^ parait plus ele- 

gftnte (m rempku du cls^que 

yrdmmc; pourra &tre nftSftteqieit^t 
remplace pas son equiueaerit en Ian- 
^age machinQ; 

Z) VoUS desirez que le curseur ou la 
forrnP sciit siorkpp mir disqupltc i^fin 
de charger definition direciement 
depULS voire pvuyrammt'. Pour c^ia. 
il tau! !?mplow^f 3'option "Enn?ijis- 
tre:" Ceire derniere solution esi 6 
n'"i!it' avi^ la niL'illi: ure puisqu'd n'esi 
pa> ii^ce&saire d ecu re les valeurs 
sous formes de DATA, ce qui permet 

un gain, temp, non n^ige^ble et 

(tfes Important avec un Mac 
12gKo!l 

Le chaTQement de la definition d un 
curseur a partir de votre prt:^ramm.e 
ne pos>e pa^^ de prob!emt^ pulbquw I*:- 
nomte d "cft^K. regt^ inwartaWie' 
(voir Taffide "ties roa^iics &rx 
ROM"). Pai e^eciiple, puui cltai^^ 
un curseur baptise preaiablertieVit 
curstfur iqui d dit quf nous man- 
uuuif? Lri:NriyiiLc3lion on peut utili- 
ser ur. -^qm»^n! de programme qui 
ressemblerajl a : 



10 ' Chargftmont et 
modi ricat ton du cirsotir 

20 D1MCK(33) 

30 OPEN'|-,l/curseir- 

4GFORIX-i3TO^ 

50 iNPirr'i,C!fCI*) 

60 NEXT 
70 CLOSE 

80CAILSETCUPSOH 
tVAflPTR(CS(0))) 
90 GOTO 90 

La taille des form^ cr^e^s av^c I'^di- 
tcur peut varier de 1»1 a 64*54 
points; II faut done connaitre le nom- 
bt!S d ' octets n^^ssair^s a l^ur xepx4- 
sentattQn: On peut util^ser la formula 
"4 + NY • 2 • INT((NX + 15) / 
16)" mais cda oblige a fa^re le calcul 
ct nolei le resultr^r un papier 
que Ion ne rt^trouveui pas force- 
niGni. Une autre solution contii^t-^ a 
quitter k proyrsmme (reiour au bu- 
reau I lusle apres avoir enreqistre une 
forme car. lor^ de I enrt^gisIreEnenl. le 
nombre d'octets requj^ t'5t trani^f^re 
dans presse-papier ei peut elre 
colle dans la "fenetre d'inforiTiation'' 
de.la foime. Lom^ue Ton utilise des 
tebteaux de varia^btes entieres,, le 
nombre Indique doil Strfe cK^inS^ 
deux, pour tharger une f omi'e ^ 
par 54 points (4.36 octets) baptlsee 
"forme" [toujours aulant d'imagina- 
fion ! J, on peut utilises - 

10 Ctiargement et arffchage 
d'iin« forme 

20OPTK»fBASE 1 

30DIF1FXC219) 

40 OPEWr.! /forme' 

50 FOR TO 219 

60lNf>UT'l,FS(l1E) 

70 NEXT 

60 CLOSE 

10Q6OTP 100 

Nous avons vu ^f^igc^ntmeni que la 
taille mawmale autoriseo par Todileur 
esi de 64*54 points, mais II est par- 
faltemenl possible de. regrouper plu- 
sieurs formes pour en «^fitiier unc 
plus gr^mde. trots petlts program- 
mes siiiuants rpaliserit le regroupe- 
ttient de quafrc form^'^ bapii:-,ee^i 
"formel" S ■forme4", el ceci dans 
differentes conJigurations : 

! ■ Transf omatf on d«^ 4 
rormes de 64''54 puints en 
une forme de 64 points 



(horizontal) par 216 points 
(vortical) 

20 6pflWBi*SEl 
30 DinFI%f 4.216) 
40FORIS-I TO 4 
50 0PEN"rj/?orme"* 
RI(^S(STnt(IB),l) 
60FORJS-I TO 218 
70 INPjT-l/rjHUS^) 
80KEXT 
90 CLOSE 
100 NEXT 
llOOPEN-o-,l,T* 
]7Q PRIWT'1,64,216 
130FORIS-I TO 4 
140 FORJK-3 TOSlS 
150 PRINT -l,FIWilS^) 
160 NEXT 
170MCXT 
ISO CLOS^ 



lO'TransTormation de quatre 
formes b4'bA points en unc 
forme de 256 points 

(tiarizontaO par 54|H>tnts 
(vertical) 

20 OPTION BASE 1 
30DiriFlie(4;218) ' 
40FORIS-1 10 4 
50 0PEN"rj,'FOnp-E'* 
RIGHTJ(5TRi(JSU) 
60FORJR-1 to 216 
70 fNPUT'l.FlKlS>^) 
80 NEXT 
90 CLOSE 
iOOHEXT 
n0OPEN-0M;F" 
120 PRINT'1, 256,54 
130 FOR J9S-0 TO 53 

150 F0R.KS-JT0 6 

150 PRINT»f;FIS(l%,J?«-4'KX) 

1 70 NEXT 

ISO NEXT 

190 NEXT 



10 Transformation de 4 

formes de m*54 joints cn 

une forme de 1^ pdfnts 
(tiorizontai) par lOB points 
(vcrtlcol) 

20 OPTION BASE 1 
30DIMFIS(4,2I8) 
40 FORI?!-] TO 4 
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43 



50 OPENTJ /forme"* 
RIGHTJ(STRJ(|?£JJ) 
60FOflJ9E-l T02ie 
70 \HPin'\,F\%{\%,J%) 
BO frJEXT 
90 CLOSE 

nooPEWoM/r 

120 PRINT'*, 128,106 
1 30 FOR IS-0 TO?*iTEP? 
140F0ft JS-0 TO 53 

160FORLS-3 TO 6 

180 NEXT 
190 NEXT 
200rCXT 

210 NEXT 
220 LLOat 



Pout chovger el alficher a partir 
\.-oi[\- programme une forme ainst 

10 Charg«»ef]t et amchage 
d'une fonnt consttUl4» S 
partir de quatre rormes 

20 OPTION BA5E1 

30DIMF?e(a6G) 

4l>0PEN"r,I.T' 

50 FOR i?s-i Tocee 

bOINPUT'l,™)g) 

80 CLOSE 
90POT(IOJOJ/S 
100 GOTO 100 

luer deux ;emps : 



• Le plus pylii pioyrdmmt? ne se^a 
utilise qu une seulc fois. afin de 
cre^ 1^ fichiers ct XL qui se- 
Tont emtiite afi^l&s pru p-o- 
_qramme prindpaL Cettc solution 
n'cst peut-etre pas la plus simple 
mais &*ii7ipubdiL puisqu-e la m^- 
moire disponibie sur un l28Ko ne 
pL^rmettait pas T Integra I ion dus 
DATA iJtiii^j ly proaramme princl- 
paJ- 

• programme principal dott iJre 
entre tel quel: il tie fetit ajfm- 
ter quoi que cq soit si vous ne 
voulez pas obtenir un splendide 
■."Memorv fuH". D'aulrG part, lors 

b prerrtiere sauvcgarde, il esl 
ri<?i_L'^^ditt' df mcttre la 'Tt>n^lre de 
^urrK' a s,^ laille maximum pour 
ov\W-t Lin cvt?nlud "scrolling" lors 

I'e^^cutton. ■ 



1 "Prwyr dmrne de creation des Fichlers XL Ct XP, 

utilises par le programme principal. 
10 DATA 24. 155,32,0,68.0. |.qO,O,262,O.5l5.O.10^.-3?766. 

2048.-1638A^0<56,2457&,9t';J2 
20DATA 122tJ5JbJa4,& 1 44.-249.- 1024, 16135.-512.263,0. 

263,0.263.0,263,0,263,0.263.0 
3QDATA263.0,263.0.26X0.5n.OJ 27,0,0-0.0.0.0.0.0,0,0,0, 

O,d;0.0.0.0.O,0.0.0.32,C5. 1 04,0 
40 DATA 184,0,3 l?.0.5fia,0, 1 0SO.0,2l04.O.4l5Vt-02-l, 

9 1 92. 1 792, 1 5394. 1 792r327&a, ] 792 
50 DATA 16384,1792,81^2,1792,415^^256.21 11 -256J0&0. 

0.568,0,3 1 2.0. 1 54.0, ! 20,0,56,0 
60 DATA 8.0.0.0,0,0,0,0.0.0.0.0,0,0,0.0,0,0.0.0,0,0.0.0.8224, 

5192.22616.22528,-29556 
70 DATA -29696, 1 8 1 83,7690,8962, 1 5360,4484,30720,2248, 

-4096,5253.-9? 92^:8739 -4(396 
80 DATA 16647.-26624.-1 13.-1024, 161?5,-512.54?,0.U37, 

-327btJ,Z^Sfa,- 16384.4580.24576 
'^O DATA 91 58,1 2288,1831 1,6144.-28921.-^^,24327. 

24064. 1 5623, 1 5360,2559,2048. 127 
too DATA 0,0.0,0.0,0,0,0.0,0,0,0,0,0,0,0.0,0.0,0,0, 1 6,0,28,0, 

22.0,19,0,17.-32765.16,-16384 
1 1 DATA 1 6.2457S,- ) 6, 1 2298.-32765.6 1 44,-32769,3072, 

-32768.t536.-52768340r32768 
120 DATA 7680,-16, 15360.16368,30720,16,-4096.17. 

-8152,19.-16334,23.-32768.31.0,22.0.4 
130 DATA 0,0.0.0,O,O.O.O.0,0,0,0,0.0,0.0A0.OA0.O.0.5DB,0. 

263,0,263,0,263.0.263.0,263.0 
T40-^DATA 26^:0:263,0.263.0,263.0.263,0,-249,-2048. 

J6394,7680.9l02. 15360,4096.30720 
1 50 DATA 2048,-4096, 1 025.-9 1 92.5 1 5.- 1 6384,263.-32768, 

143.0.94.0.60.0.9.0,64,54,8,2 
160 DATA 2047,-8192,4 4fi 144,81 44.fiJ2,8l^,1024,6J 2, 

I820T.-1 1776,6, 12,! 7573.4608.5 
170 DATA 16276, 182 1 5.-281 60,2,- 16280, 17573,512.1. 16, 

1 0009,4609,2,6.4096, 1 024,2,327 1 2 
iaQG'ATA61-G,-2t>48,4;-17SCJ6,1024d.0.4,7940,-4096, 

24576,4,8324,0.-28672,30, 16463. 1 
190 DATA 2048. 1 06, 1 6459,- 1 6382,25600,479,835 1 ,28676, 

-26 1 60.69} ,-8327.-2251 9.2J04 
20ODATA 1377.-16.-11246,1 152,2772,-27,27174,1099, 
5504.16256,13605,22550.1 1008,0 



210 DATA t)tiU:^.-20336. 1 3824,0,3465,24840.27648,21624, 

) 732,- ] 5652.2 1 525,2 1 , 1 346,42 
^iJATA"22208.a21 133*1,-10240,0.866.1,-25528.0. 

674. 1 7477.- 1 2207,2 1 640.354,-30583 

230 DATA -20140,5,20898.-30593.21504.0.1346,-30593, 

28672,0,450,-30583,12288,0,386 
240 DATA -30533.126241,20866,-30583.6149,21844,770. 

'J0b5J,2048.0.5 14 -24695,2560 
250 DATA 0.2562.-3097,1 192,2, 23549,-3 146J,1025, 

'2 1 846, 1 026,326 L5 1 2.0.3074.-32747 
260 DATA &68,2,-t6620.3,396, 1 0888, 1 2293, H . 1 94. 1 5456. 

24584,204^, 1 00,-32732,-16374 
270 DATA 7 1 73,60.-32729,-32760,3585.24.-7965, 1 0. 1 797, 

9.-14,SiS97.9,'t4,8.257,4,-28.5 
280 OATA 11,4,-24796.4.3,226,24775,-8190,-32747,791, 

20829.6 \ 46.826 1 J 1 76,4354. 1 795 
290 DATA -30183,24576,a320. 194,24673.16383,-16257. 

-125,-1 

300 OPEN -tr, L-Td^rFOR IX-1 TO J12:REA0fflif PflrNT'l 
NEXT CLOSE 

3)0 OPEN -OM.-XP'.FOR IS-I TO 218;READ NS;PRINT' I .N^ 
ND^T:aOSE:E^© 



I^ogframme Ptincipal 

10 CLEAH22000, 1024:CAIL HiDECURSOR: 

ON ERROR GOTO 221 0-DEFINT A-V:0EF5TR W-Z. 

OPTION BA^ 1-DIM CC34).D(34),n{4),PM),ME 1 604).H( 16). 

E(18)/(9),l(J12),O(5543,0(2ia) 
20 DATA " Voulez-vous.,/, 1 • Creer un curswjr, 

2 • Cr^er uw fDrrrie,3 • R^eridrtf On orseur, 

4 • Reprehdre une forme, 5 • Ouftter 
30 DATA 32,80,80,72,36,32/54.-32/59.32713,2085,1987, 

f057,-963.508,0,0,0,32,l 12, 112, 1 2 0.60,32 766,-1, ^2^7^ 

4095,2047,2047. 1 023.508.0.0,0,6,0 
40 DATA 1 ♦ Point chaud,2»Enregistrer,3*lmpr1mer, 

4 • Curseir,5« Effacer,6 • Grille,7 • Quitter 
50 DATA 512,512,512,512,512, 1792,-520,1792^512,512, 

512,512.512 

60 DATA 16382,15385,20473,20485.20485,20485,20485, 
20485.20473, 1 6385, 1 6385,20605. 1 6385. 1 2282.8 1 94, 
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1 6382, 1 &382.32767.i2 7b/.2iib /9.2a6 79.28679,28679. 
28e70,32767,32767,32767,32767.32767J6382, 16382, 

16382,5,8 

70 DATA -32768.16384,8192,4096.2048,102^,512.256,128, 

^.32J 6.8,42.1 
SO &ATA La pD3iti(jrr dii point chaud rF'etant oas, 

"etaDi le, les v;ileiirs ^sf^umees sont ."jX ■ 0,¥ ■ 
90 DATA Ef facer J Ajouter 1 lgne,2 Supprim«r Irgne, 

3 Ajouter colonre,4 Supprim^P Mi»i»,5 Imprimep, 

6 Enregtstrer,7 Gri! le.8 Quftter,9 0eC3ler 
;00 DATA 8184,16380, 32766,- 1,-1 6381,' 1002 1,-14253, 

1 2213, -950V 16^61,-1.32766. 163aO,8IB4A 
3 ) 84.0,0,32766,327e6,32766,32766,32?66,3276$, 
32766,32766.32766.0,0,8184,0,77 

llOOPEN-r,),^L%$:FOR 1-1 TO 3 1 2:]NPUT' I .If t) MEXT CLOSE. 
OPEN'iM /XPV&FOR I- I TO 2 1 8 INPUT' ! .0(1 ) NEXT CLOSE 
RESTORE 70:FOR l-l TO 16.READ H(l).NEXT,FOR f-3 TO 9. 
Ftl)■-l:^OT:WV-'Vou^e^-vfflJS'■'H•-!frWmTH'^pt1'^255 

120 CALL TEXTFONT{0).CALL nOVETO(2J2) PRINT "© Purn's el 
JL5".GET{3.3)-f99, INF(3,3)-(99J2),30,Bf J-0 
B'-5Oia74!Ai-VARPTRm(lJ)MF0ftl-l TO 10: 
FOR J-0 TO 1 3:Pac£ 6l+J,PEEK{Al):A]-AI* 1 *I£XT£I-BJ*64 
NEXT 

I30GOSUB 21 70PESTORE.FOR l-l TO 4:PCIM):^©CTi 

CALL aAaPAT(VARPTR(P(l jJJiCLS; 

LiWC44.y6^C444,€i6),>llW(l^J<J2H34G,^^ 

L1NEC150.104H338,I22),.B 
140 FOR I- 128 TO 224 STEP 24LINE <320,IH335,I M5>,,B: 

LINEt335,IH320,fH5)-LINE(335.l*l5W320JI 
LIN£(322J*2H333.l*l3)..fl: 
LINE(323.l*3)-(332.l*l2),3n,BFNFyT- 
LINE (150.247H340,247J 
150 LINE <46,87W446, 87) CALL PEN3lZEi2.2)i 

LlNE(49,J5)-(439,8!).,BLINEa4.1J03H34l,246>; 
UNE(4^,3iH445,861 

leoGdsue i79&c?iL^HPAT{VAfiPTft(pfi)»:- 

CALL PEN5IZEt4,4):RlU-3l:P(2)-45:P(3)-86P£4>-444: 
CALL FRArtRECRVARPTR(P( I JJJiCAU PENNORflAL 
ITOCALL T^Xtf^ftl^kL tettBt^^^^ 

CALL MOV E T 0(64.6 6). PR mT "Pom's" CALL TEXTriODE[ 1 ): 
CALL TEXT5|ZE( 1 4J:CALL TEXTFACC(0):CALL TEXTFONTCS): 
CALL riOVETO( 1 92,62XPfilHrEdlteur de fonrtes et 
curseurs" 

180 CALL TEXTStZEn2) CALL TFXTFONTfOVFOft l"l 18 TO 238 

5TEP 24CALL nOVETO( 1^2,1) READ V^:PRtKr WtNEXT 
190 R( I J-40:fl(2)-54:Rt3)-77;R(4)- 149: 

EALL WVERTfftUNDfleiTfVAIilPtWFKi )),»a,ia)tR()>»b& 

R(2)=152:nf3)-121;R(4)-337 
200 FOR l-[ TO 34READ DU):N£XT: 

CALL SETCURS0fi(VARPTR<D<l)»:CALLSH0WCURSOlR: 

P.UT[420,22W,O 
210 W-INKEYtrlFWo" THEN 230 ELSE IF nOUSE(0)<0 ThCN 

240 ELSE l-f*l:IF 1-50 THEN 

CALL INVERTRECTCVARPTmR(l))):l-0 
^ GOTO 210 

230 H-ASCtWklF N<49 OR M>53 TffiN 210 GiSE H'^AB: 
GOTO 260 

240 IF rt)U5E( 1X321 rtlUSE{l»334Tf€N 210 ELSE 
A-nOUSEt2) 

250 If A> 126 AW) A<^14?THEN N- 1 ELSE (F fio 152 AND A< 1 67 
THEN N-ta^lFA>l76ANDA<191 THEN N-3 ELSE IF 
A>200 AND A<215 BftN N-4 ELSE IF A>224 AND A<239 
THEN N-5 ELSE 210 

260P(lM05'24*l*P(2)-321:P(3)-P(l)*M:P[4J-335: 



FOR 1-0 T0 21CALL INVERTRECT(VARPTR(Pn))): 

FOR 0=0 TO 50.NEXT.NEXT,C03UB 1 790, 

CALL BArKPAT{VARPTn(P(l)»-CLS: 

ON N GOTO 290,990,280.970 
770 CAaHIDECURSOR: WIDTH 'Iptli-.W-GOSUBSTSO: 

G03UB T860:CALL TEXTF0NT{6> CALL TEXT5IZE(18) 

CALL MOVETOi 1 32J45): PRINT "ReLour au bureau./: 

SYSTEH 
280 E-0:GOTO 300 

300 DIM A(ieJ,BM8)LlNE(338,261-<461J97),30,6F: 

LINtt 1 30.^ 1 QH204.2b2J,30.BF 
3l6P0ftl=26T6 1^8 STEP I52;LINE(I,26HM32,I90),30,BF, 

LINEfl,26Hl*132J90),.BLlNE(l*2,28)-(U130,52),.B: 

LINEU*2.54)-(IM30.5e).,BF:LINE(l*2.l91HI*IJ4J9l); 

CALL PENSl2EC2.2):LlNE(f*133,27>-(l*133J90): 

CALL PENNORMALiNEXT 
320 F-1:(K)SUB 1610:CALL MOVET0(6e.44); PRINT TursMT: 

CALL rDVET0(220.44):PRINT "Masque" 
330 UNE(340,28)-(460, 1 96)„BllNE(33S.26J-(462, 1 98).,B; 

CALL M0VET0(346J-8);READ W PRINT WNEXT 

340 LINF(340.igQj-(464, iqq) i INFC132,212)-(202,260)„B: 
LINE(nO,2IO)-(204,262),,B.LlhEf I32,263K206,2631: 
CALL PENSIZE(2,2):LINE{205.21IW205,262>: 
LINE(463,27M4e3.l96):CALL PENWORMAL 

350 F( 1 D-7:F(2)-7LI-0'V-0:G- l:e-0:A( 1 )- 1 6:A(2)- 1 6:B( D- 1 6: 
B(2>16:CALL 5ETCUfl50R(VARPTR(C( 1 ))):IF E THEN 41 

360G0SU8 2150:6<KUB 1850 

370 2-- 

380GOSUB 1950 IF A THEWN-1 GOTO 940 ELSE OPEN T, 1,2,6 
jyo f-OR l-J 10 18 INPUT' [, Ad) NEXT FOR l-JTO 18: 

INPUT'1,BCI):NEXT:INPIJT-I,V,U:CL03E: 

IF VANDHfSlU Ahffi H THEN fflROfl 57 
400 PUTCKffli^feXM.PSET PUT( 1 48,228),APUT( 1 72.228),B: 

PUT(28,6flMI55J87lA,QRPUT(;aO,60)-(307J87),&,OR: 

B-l 

410 W-ltKErt:IF Wo" THEN 550 ELSE IF MOIJ^(OX>-1 TfCN 
410 

420 P-M0USE(l)a-M0USE(2) [F P>340 AMD P<460AND0>2fl 

AND Q< 1 96 ThEN N-(Q-4)\24:GOT0 560 
430 l-P0IWt(p;QJ AND 1 
440 IF0<6I 0R0M87 THEN410 
450 IF P>2a AND P<I56THEN5]0 
460 IF P< 1 81 OR P>307 THEN 410 
470 WHI L£ TOUSEtO)<0:R-(rt)U5E( i )- 1 72)\8; 

S-(M0USEf2)-52)\8:IF R-1 ANDHORS-1 ANDHTtEISOO 
4S0 J-R-a- 1 73:K=3*8*53:5'3''2 IF I THEN PUTCJ,K),F,PRE^. 

B(S)-B<S) AND NOT H(R) ELSE PUT(J,KJ,F,P3ET: 

B(3>0ra^ORH(R) 
4Q0 PUTfl72.228).B,P^ 
500 WEND GOTO 410 

5 1 WHILE nOUSE(0)<0.R-(nDUSE( 1 i-20A8: 

5'(nOU:3£C2)-32JNO:IFH-l ANDH0R5-1 AN0HTHEN540 
520 J-R«8-2t:K-S''8*53:S-S'2:IF 1 THEN PUTCJ,K),F,TOESET: 

A{S5-A{5) AND NOT H(R) ELSE PUT(J,K),F,PSET; 

A(3)-A(5) OR H(R) 
530 PUT(148,228),A,PSET 
540 WEMD GOTO 410 

5-^0 N-ASCEW)'4fl IF M<1 OR N>7 THEN 410 

560 R( I )^S*24*N:fi(2)-34l W3)-fl( I )'23:R(4)=460 

FOR 1-0 TO 2 l:CALL lNVEfiTRECT(VARPTn(R( I ))): 

fOR D-o: TO 50J€Kr;l©tT: 

ON H GOTO 570.630,700,790^840,880,91 
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570R£STORE SO.FOH t-1 TO 34READ D(0,NEXT.R( 1 )-30 

R(2)-30 R(3)-5 1 n(4)- 1 55 

ZALl lNVERTRECT(VARPTR(R(t))): 

CALL SET[:URS0R(VARPTR(O(l))) 
560 IF nOU5E(0)- 1 THEN P-nOU^(lXm3U3E(2); 

.U-(P-28)V8:V-(0-60A8; 

IF (Ij Mild H(M V AM) H)-0 THEN 600 
590 GOTO 560' 

600 H(U^S'*V'P(2)-2H*9"UK3}-P(l)*8:Pt4J-P(2J*& 
FOR I -0 TO 2 1 :CALL INVER"ms:T(VAftPTRCP( 1 )))- 
FORD-OTO 50NEXT:NEXT 
CALL INVE:RTR[;CT(VARPTR(R{1))): 
IF G THEN C[33)-6aJ4)-6 ELSE a33HVC(34J-U 

610B-1.CALL SETCUR30RCVAHPTRCCtl)));60T0 410 

S20'frtregistrer 

630 I F 6 THEN 650 ELSE GOSUB 2 1 50 GOSUB 1 850 

GOSUB 1920:RESTOREa0F0R I- 1 16 TO 1 64 STEP 16; 
CALL F1JVET0{ 124J)flEAD W;PRINT W:N£XT:605UB 207Cf 

640 !FD THEN 670 

650 GOSUB 2 1 50:IF B THEN GOSUB I S50 ELSE GOSl^ 1960 
660 GOSUB 1050 (F A THEN 670 ELSE OPEN 'O", 1 J.6 

FOR 1-3 TO 10 PRINT' LACi);NEXT:FOR 1-3 TO IB; 

PRINT- l,B{l):N£XT:PRlHT'l,V,lhCLOSE 
670 PUTflOB,92mP5ET 
GQO IF M0U5E(0)<0 THEN 600 EL3E 410 
690 Imprime-r 

700 G0SUfi215Q:GQSUB 18,50:CAa MOVETOCl 2-^124); 
PRINT WV •|fftprfrner'^:eG5U& I^6:S05iJB ^70 

710 IF D THEN 670 ELSE PUT( 108,92) AP5ET 

720 CALL HIDECURSOR:P-2700-224R-470;S-272. 
60aje T859.ti*tLM0^^(2^/251): 
PRIMT "Impression .' P-26 f>-0 P- 1 58 S-190' 
Wl-'FOOOl'LPHfNI LHRSJ^4),ba^U0 ]mO 

730LPRIhJT CHRS(24) CHR|(27) CHRSf3l) CHRS(3 I ] " ' 
affll(Z7)7";P-17S:0-26;H-3IO:S-190,WI--F0280" 

GOSUB leeo 

740 LPR!NT CHRS(2d) CHRK 3 1 1 "I'^Wl-TOOOf'-P- 130'.0-210: 

R-2045-2S2:eO5UB 1960 
750 LPRJMT CHEm27> V C^WtS:! ) CHRSC31 ) 'T CHEWIil ) 

'5"CHRK?4)CHR|f27}'C" 

Wl),^Y.-HeatA<0*:X-T'LEFTI(W,4-LEN(Y))-YLPRlNT 

T^.35JiXiTAB(73); USlNG'"""',fi(t),-V'HEXICB(l)J 

)(-T*LEFTiCW,4-LEN(Y))*V:LPRJtfrTA6CBl);X1tf>fT 
770 LPBIWT LPRlNTiPRINT TAB{26);Point chaud x 

U "/ y V.PUT(270,224J,n,P5ET:CALL 3HOWCUR50R 

GOTO 410 
780 Cur^fKV 

\ F e-O THEN g 1 0^ ELSE A- 1 :FOR f -3 TO I fttF M I ) THEN A-0 
800 NEXT IF A :-HEM 410 

810 If G THEN G-0;Ct33)"V C{J4)-U:F0R I- 1 TO 16: 
C( l>-Af l^]*lKT:raR I- 17 TO 35 :C< T)-fi(i- 1 Ah 

NEXT ELSE G- 1 GOSUB 2 170 
820 C^L SETCUR50R(VAnPTP(C(l))) GOTO 410 
030 Effacer curseur 

840 G05UB 2 1 50;GOSUB 1 850;CALL riOVETO( 1 24, 1 24): 

PRiNT WV'^erracerr GOSUB 1920;6051B 2070 
aSO IF D THEN 670 ELSE: PuT( 1 03,52)APS^: 

Ll*£{ 1 e0.60)-C308. 1&83.39.BF: 
LINE(140,220M196.252UO,BFFORI-3TO l8:A{IJ-0^ 
B(l)-ONEXTIF F THEN GOSUB 1610 
860 U-0 V-OR-OGOTO 410 

870 cnile curseur 



880 IFF THEN f-0 ELSE F-l 

eooGOsue iei0:(^TO4ie 
900 Quitter cursew/forme 

9^0 N-l GOTO 930 
920 N-0 

930 GOSUB 2 1 50 GOSUB tSSOCOSUB 1520: 
CALL nOVETO(l24,l I61:PRINT WV --quitter 
G03UD 2070 IF D THEN IF N THEN 670 ELSE 1340 

940 If M THEN ERASE B 

950 m^tA^L flldeQJl®3ftQ0TO 150 

960 'Repr«MFs romitf 

970 E-ooofo rOoo 

990 Cr^er Torme 
990 E-j 

1009 dIM A(2m 

lOtO A( W-64A(2)-b4L-Mn-54RE5T0RE 1^:F0R 1-1 TO 34: 

READ D(l):NEXTf { I )-4F[2)-4F-l 
T02OLINEf358.^H«8.93X3O.BFLINE(3Sa,3W45fl.93).,ar 

LINEC360,5)-(4S6,91)„B.L1NE{360,94H460,94) 
l030LINE(335J10H482.274UO,aF' 

LlNErJ3^J 10J-[4e2,27-:),,B 

L1NEC337J l2J-(480,272)„B:LlMEC337,275W4a4,275) 
1040 CALL PtNSl2E{2,2) LINEC459,5H459.93): 

L!ME(4e3,l r l)-(4a3,274> 
1050 CALL P£NNORnAL,RE5T0RE 90fOR IM28 TO 272 STEP 

1 6i:LIMEf337^1H 48t).l ^CAL-L M0Vrroa42,l-4)iREAD W: 

tF 1-272 ^HE^ mm\ W, EL^E PRINT W 
1060 ND<T CAL. SETCURSOR(VARPTRtC( 1 J)).PF £ THEN 1 1 10 
1070 GOSUB 2150 &05UB 1650 Z-" 
lOeO G05UB l950;iF A THE/J 950 ELSE OPEN '\',),Zfi 
1040 INPUT»l.UrtlFL<1 OR L>640R M< 1 QRttMTHEN.ERESST 

57 

1 1 00 K-(L* 1 5J\ 1 6.F0R I ■ 1 TO nPOR J- 1 TO K; 

INPUT'1.A«I-1>''4*J<'2):NEXT;NEXT£!^: 

PUTflOe,02),M,PSET 
II 10LINE(3,3)-(L''5-7,M''5'7),30,BF 

LIKE(3,3)-CL'SW,M*5'7)„B GOSUB 1830: 

LINEt5.n''5*9)-tL-5*9,n-5*fl) 
1120 CALL PEN5!ZE{2.2):LrNE(L*5*0;4HL*5*'6,M«5»Wi 

CALL PENNORMAL IF E THEN I 140 
1 130 PUT(5,5)-(324,274),A,0R.PUTf376,2l),A 
I 140 IF h-54 THEN R( D- I29:G0SUB 2 1 30 
1150 IF L-64 THEN R( 0-161 GO5U&2130 
1 1 60 I F M- 1 THEN R( n- ^ 45-G0SU8 5 1 30 
I 170 IF L-1 THEN R(l > 1 77 G05UB 2 1 30 
1 180 W-INKEVHF Wo" THEN 1 270 EL5E IF NOT MOUSE(O) 

TWN 1 180 

1150 P-M0USE(nQ-r«USE(2}fFM0USE(0)-l THEN IF P>337 
AND P<4ei AND OH 13 ANDQ<2;4 THENN-(0-l 14A16: 
GOTO 1230 

1200 l-POINT(P-CP raD 5'-0J,Q-(Q MOD 5-0)) AND ] 
121 OIF P*5 0RP>L"5-5 0nO<5 OR 0>H"5*5 THEN 1190 
1220 Points forme 

1230 WHILE M0U5E{0)<0;R-M0USE< I ) \5 5 -MDUSO 2)^5:1 F R< ) 

OR R>L ©*5^rm S>ti THEN 1 26& 
1240 J'fl-S* 1:K-S*5' 1 T-(f R' \ 5)\ 1 6)'2S-(S- 1 )»4*T. 

IF I THEN PUT(J,K),F.PRESET A(S)-A(5) AND NOT 

H(R-( 1 6''(T-3))) EL^ PUT (J,K)/,P5rTTA(5)MCS) OR 

HCR-(I6-(T-3))) 
l250PUT<376,2n.A,P5ET 
1260 WEND GOTO I 180 
1270 N-A5CtWJ-4a.JF N<0 QH N>9 JHEN 1 180 
1280 JF <M-1 ANt> rT-54) OR (N-2 AND M-1 ) OR CN-3 AND L-64) 

OR (N-4AF^L-l)THENn80aSE R(1)-M3*!6"N; 
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I2M FOR f-0 TO 3rC:ALL IMVERTFffiCT(VWPTFl{ftC I m 

FUR D'O TO 50 NEXT NEXT.U-L*5 V-M'^S ON N GOTO 1370. 
M 1 0, 1 440, 1 480 J 5 1 J 6 1 J 650,920. 1 680 

1300 Effacer rorme 

13^0 GOSUB 2 ( 50:GOSUB 1 850:CALL MOVETO( 1 24, T 24^ 

PRINT WV 'effacer ''".GOSUB ;q20GOSUB ?070 
1320 [FDTHEN 1340 ELSE PUT{ 1 03,92),M,PSET: 

LJNE(3627)-(454,&9).30,BF,N*.l-3 1^3 SlS-J^llWi^ 

[FF THEN GOSUB 1830 
U30 OOTO 1100 
1340 PUTtl08.92>nPSET 
1350 IF rtJUSECOXO THEN 1350 ELSE 1 ISO 
1360 AJouter llgne 

1370 CET(3.V'l)'<U*S.V'73,n:PUT(3,V*6).M,P5ET: 

LiNE(5>'6)-(U'5,V* 1 0),3O.BF:J-INE<5,V* I3.HU.*9-V* 1 3): 
CALL M0VET0(342, 1 56):PRlKr "2 Sut^lmeP 11^' 

1330 fl-MM. IFF THEN UNEC5,VH0HU*5,V'l0y 
FOR I- 1 TOLH:LJNECI*5.V*5HI*5,V*10);N£XT 

1390 GOTO 1 140 

1400 Supprimtr ligne 

14lOLtNE(376,20'^HH43g,20'ri),30;GET(376.2lH439.74JA 
GET(3,V-6)-'U'Q.v-75,n'PUT(3.^*n,M,PSET:G0SUB 1790 

1420 Ri 1 )-V*3.R(2J-3;R(3)-fll I )*6:R14)-330: 

G/4L^^LLfffiCT(VARPTW«l)>.VARPT«l«n)llr 
LlNE(5,V*3)-(U*g,V*3)fT-M-l CALL rpVET^3^, I40>: 
PRINT 'I Ajouter ligne'GOTO I 160 

1430 Ajouter colonne 

1440GET(U'l,3)-(U*7,V»e).rtPUT(U'6,3)nPSET: 

L!NE(U*6,5^(U*I0,V*5),303F:CALL PEMSIZE(2:2> 

LINEfU- 13,4)-(U- 13,V*7).CALL PENNOfiMAL. 

CALL raVETO(342, 188);PRINT '4 Suppnmer cDlonne' 

1450 L-L*1:IFFTHEN LINECU*! 0.5)-(U* I0,V*5); 
FOR 1-1 T0M*I;LINE{U+5,l*5HUH.OJ*5):KDCT 

1460 GOTO 1 15C 

1470 Supprimer colonne 

1490LlNtQ75*L.2)H375*L,74UO:GETC376,21H43974).A: 
aEfKi^6,3 >(tK7,V*8).MIVrfU* i ,3il;M,F^.-G6SU8 T790: 
R(l WP(2)-U*J:R{J)-V*9 P(4)-R(23*'0 

1490 CALL FILLRECT(VARPTn(nC 1 j),VARPTmP( 1 ))); 
CALL PEN5IZEC2,2)ilNEfU*3,4HU-3.V*7J:L-L-l: 
CALLM0VEToa4:2.172):PRINT '3 Ajouter CQloni^e-; 
CALL PENNORMAL GOTO 1 1 70 

1500 Imprimer forme 

1510 G05U5 2150;G05Ue 1850:CALL TOVET0(124J24): 

1520 IF D TMEN 1340 ELSE PUTf 1 08,92),M,^ 
1530 CALL SETCUR50R(VARPTR(D( 1 ») P-328:0-21 4:R-486: 
S-262:G0SUB 1850 CALL Pi0VETO(333,241 ) PRINT 

"impressroa.,";P»J:U'P:R-L"5t/:5-n"5.t7:Wi-TgqQg"i 

LPRINT CHfiJ(24)j: GOSL® 1830 
1540 LPRirrM$(24yO^S«(30-t-':MS8:0-3fl-45S:5-S^^ 
GOSUB 1 080 

ISS: LPRINT CHRIt3n/r:CHR«24);CHftIC27>;"eV 

0-(L*15)\15,P-l. R-1 W-'OOO" LPRINT "largeur 'jL; 
■/ hauteur -%M; 4*M-2"((L* 1 5)\ l6);-octets" LPRINT 

.E5K)F0ft l-l TOrtFOR J-1 TOaiFFl-l MOP^\ THENQ-P*5 
,Q.5EQ-P 

imO LP&IMt TAB(Q);U3IN6 1>" 4* J*2)-: 

¥^X!(A((l- 1 )M*J*2)):)(--$-*LfFTS(W,-4TlEN(YH*Y: 
LPRINT TAtJ(U'/j;X.R-R*l 

IF R-33 THEN R-l:P-P*MJJ>mKr a**t27)'T'Offi$(3r> 
-r CHRS(3 1 ) CHRS(3 11 CHR«27) 'C- 



1^ NEXT:NEXT:PUT(J2S.2MWPSET; 

CALL SETCURSOR{VAflPtn(C(l)»:GOT0 1106 
l600'Enregi5trer Torme 
16l0 6OSUB2[5O:CO5UB 1850 

1620 GOSUB 1950:IFATHEN 1340 ELSE OPEN 'OM.ZA 

PRlNT'!,L,M0-(L*T5)M5F0ft f-1 TO M.FOR >! TOO: 
PRINT' l,A((l-l)''4'J^2)NEXT,NEXT CLOSE 

1630 OPEN "Cfip'- FOP OUTPUT A5 1 LEN-& 

PRINT * 1 ,4*M»2"aL* 1 5)\ l6)i-octets':CLOS£GOTO 1 340 

1640 Gr-^ne rbrme 

J650IFFTHEHF-0 ELSE F-1 
I6606QSU5 IS30:CK)T0 ; m 
le^iJ-Oiftcalw 

1630 CAll ;NITCURSClftP-^37&0-a0:R-4345-272:G0SlB 1850: 

PUT(39l,99),l 
1690 IF MOUSECO)<>-l THEN 1&Q0EL5E ^■'^USECD 

Q-F10USEC2J:tF P*3B6 OR P>41 8 OR Q<96 OR Q>255 THEN 

1690 ELSE H-CQ-96)\32 
1700 R[l)-97*32-N:R(2)-367R(31 = R[!)*3l R(4)-418: 

FOR 1-0 TO 3;CALL lNV£RTftECT(VARPTR(R( 1 ))): 

FCffi[)-t)TOS^:r«XT'tEXr: 

ONNGOTO 1730,1740,1750,1760 
I710P-376.Q-22 
1720 GOSUB 2 190.G0T0 1690 
1730 P-377'Q-21-GOTO 1720 
1 740 PLrr(37O.5O),ri,PSET:eOSU0 2 1 70r 

CALL SETCURS0R(VARPTR(C<1))):G0TQ 1350 
1750 P-375:Q-2^:GOT0 1720 
1760P*5763>20:©OTO 1720 

1770 Sou3-programmes 

1760 Backpat/Penpat 

)/yOf-UKI-l 10 4P(I)-&H55AANEXT:F£TU™ 

1800 Grille curseur 

1810C-S&^F^F(>R 1-2670 186 STEP I5i2: 

FORJ-I TO IH26STEP 8:LINE<J.60HJJ831,C:NEXT 
FOR J-60 TO 166 5TEP 5:LINESI,JHi* 1 28,J).C.NE)tT 
NEXT.RETURN 

1820 'Grille forme 

1630 C-30 on F:J-L"5-5:K-ri"5*5:F0ft 1-5 TO J STEP 5: 
LINECI,5HI,K),C NEXT FOR J-S TO K STEP 5: 
UNE(5JhUJ),C:IC(T;R£TURN 

1840 Cadre meissage 

I850 GET(P,QHR,5),M 

I860 LINE(P,0HR,S),30,BFLINE{P,QHR,S).,B: 

CALL PtN:jfZ£(2,2):LINE(P*2.0*2MR-2.5-2)..B: 
CAU-PENNORMAL:RETURH 

I870'rmpre5sfon 

IG60 LPRINT CHRJ[27) ■>" CHRlf27) "n" CHRt(27) "T14',. 

W-STRS(R-P* 1 ^ y-5PACEK4-LENCW))»W'0-S-Q* 1 r-a\7: 

If OriM7TI«H"HT+l 
1890 FOP t-1 TO T W'-"FOfl J-P TO PN'OTOR K-0 TO & 

0-<l-n''7*K-Q:IF 0>3 THEN 1900 ELSE IF POINT(J,0) AND 

I THEN N=-N ORHdS-K) 
190ONE?tT:W-W^CHRiW;ltfXT:LPRiNTCHR$(27)WI CHRt(27) 

1910'0K/Annu1er 

1 920 CALL M0V£T0(229, 1 56):PRiNT "OK"; 

CALLP10VErO(308J56):PfilNT 'Annuler":R(l )-140: 

Rf2)-196;R(3)-164:fi(4)-276: 

CALL FRAr^ROimDRECT( VAnPTR(R( 1 )). 12, (2) 

1930 R(2)-292:R(4)-372 

CALL FRArEROUHDR£C:T(VAftPTR(fl<l», I2J2): 
CALL l^f2Et2^^ClJ*!^ii(S)*tteR(3)- 168: 
RE4J-280:CALL FRAr«OUMDRECT( VARPTR(R( 1 )),20.20): 



Pom's rr 15 



CALL PENNORPWL:RETURN 
1940 Salale rhom richder 

1950 CALL nOVETOt 124, 1 24):PRtNT 'Nom du fichier T. 

EALL fiOVETO< 308, 1 24):PRiNT ■Af^lW^fH 1 hlOfl: 

W2)-?<52 Rf 11- 1 32 Rf 4>-37?- 

CALL f RAnEfiOUNDR£CT(VAfiPTRf R( I )), 1 2. 12); 

LINE(IT6,140)-(380J64]„B 
1960£(l)"lft2h)6;FOR 1"3 TO leitU-UNEXt; 

CALL raiT*fm4VR*l r-l Tb4:Ptl)-o:NDfr: 

CALL 5AC:KPAT(VARPTR(P(n))C-LEW(Z) 
1970 CALL f10VET0(12^J 56). PRINT Z. 

t^OX-INKEVtlFXo"^ THEN 200O ELSE lFnDUSE(0)O-l TTOJ 
A-A- I IF A<?0 THEN 1 5B0 ELS^ 
PUTaP05UJ''7h3.[44).EA-0;t30TO 1980 

1990 P-MOUSCl l)Q-riDUSC(2>IF P<292 OR P> J7 I OR Q<108 OR 
Q)I31 THEN 1980 ELSE AMiCALL TEXTFOm(0):RETLJRN 
lF!i-Gffltfl3>-^N A-ti:CALL Te5flT^*frCb>:ftEflJftWEL3E 
IF X-CHRJ(8) THEN IF C-0 THEN 1 980 ELSE C-C- 1 
2-L£FTJ{;,C).L INE( 1 1 1. 1 41 )-( J79, 1 &J),JO,BF GOTO 1970 

2OT0 iFC-36 THEN 1980 ELSE 

PUT((P0SCI)*7K1.441^,PRESETjPRINTX>Z-Z*X;C-C.*I: 
GOTO 1960 

2020 X-INKEY$;IF Xo" THEN 2040- \T r«U^W)o-l THEN 
2020 

2030 P*hOU5Et } >.Q-n0U5E(2J'IF P<292 OR P>571 OR Q<1 -TOOR 

Q>I63 THEN 2020 ELSE 2050 
2040 IF ASC(X)<>n AND A5Ca)o3 THEN 2020 
2050 P-106:Q'92:GO3UB 1;£^RETURN 
20GO'5alslB Q^Amulcr 

2070 W-f»^.IF W<>- THEM 2 1 00 ELSE TFTiOlfSEftMo- 1 
THEN 2070 

2090 P-nOU3£( I );Q-rXU3E(23;lF 00 40 OR QH 6^1 THEN 2070 
2090 IF PM 95 AND P<276 TH£N D-0:GaTO 2110 ELSE IF P>291 
WC P072 THEJi D- 1 WTO 21 10 aSE 2070 



2100IFASCCW)o|JAND A3C(W)oj THEN 2070 ELSE D-0 
21 10 RETURN 

2120 'CaracUr«a «stomp«3 

2 1 30 GOSUB 1 730;CALL PENPAT( VARPTRtPl I ))): 

CALL PENMODEC- 3 ):fl(2)-338.Rf 3)-RC 1 )• 1 5:RC4)-479: 
CALL PAINTRECT( VAftPTftCR( 1 
CALL PeHWWWLitfTUlN 

2140 Cacrdonneps cadre message 

2 ! 50 P- 1 06:0-92 R-388 5- f BO RETIJRN 

2! 60 Curseur 

2170 RESTORE 50:F0RI-) TO I3;READC{I);NEXT: 

FOR hHTO 32:C<1)-0:NE>!T:C(33)-6C(34)-6:RETURN 
2 1 60 Oicalage 

2 1 90 GET(P.QHP*L- 1 ,Q*M- 1 ),0-PUTt376.2 1 )APSET: 
PUTt5 ,5 HL»5»4.F1*5+4) APSET: 
GET£3?S,2TH<S9,74)A&0SUB m30:RrrURN 

2200 Erreura 

22! CLOSE G03UB 1 860 CALL rtDVETO( 324, 1 56):W*INT 'CK": 

R( I > 1 40;R(2)-292;R(3)- 1 64RM)-372: 

CALL m«iEf*UiteRECT{V«*pYp^ 1 )), 1 2, 1 2): 

CALL rt>VETO( 124. 124) 
2220 IF ERR-74THEN PRINT "Volume inconm r:G0T0 2290 
2230 tFEfa5-64THEN PRINT "Nom incorrect f^eOTO 2290 
2240 JF ERR-61 THEN PRINT ^Disquette satiree IVGOTO 2290 
2250 IF Eflfi-70 THEN PRINT "DJsquette fw^tegee TiGOTO 2290 
2260 IF EftL-590 OR ERL- 1 090 OR ERL- 1 100 THEN PRtHT 

"Lecture impossible r.G0TO22flO 
2270 fF ERR-53 THEN PRINT 7ft3l1er'1nfrOUV*le T 
2280 GOSUB 2020:lF ERL-380 0FtERL-J90 THEN 380 

ELSE RESUME 1080 
2290 603UB 2020IF ERL-660 THEN RESUT^ 660 ELSE JF 

ERL-380 THEN RESUME 380 aSE IF ERL- 1620 THEN 

RE3U^ 1620 aSE RESUME 1060 




54, rue de Dunkerque 
75009 PARIS Tel.; 28 2,17,09 
Metro: Gofs du Noid (100 m) 

mskettos U,S $*1/43F/W 
Oiskoftes S^IMSff/im 

Lecteur dlskeltes pour APPLE 

(mecon, Japonais^ entr. djred) 

Carte Syn^>6tjs6ur de voix 

Carte memoire/langoge 16 KRar¥i 

Carte mcmoire 128 K 

Cartedrtve iSAAsect. 

Ccirte 80 colonnes 

Cflrte impnmonie fjardleie 

CaiHe irnpmnDnt-^ + fiu^r'SS 

Carte sene 

Carte super serie 

Carte Z80-CP/M 

Joysticlt luKs 2 +, 2^ 2C 

Pari yr q ent g j outer 5 . 5 f 
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Carte comrnunication 

Cofte IEEE -488 

Carte c^i^eur EpTom 

Carte A/D -D/A)2brt 

Corte hoHoge 

Carte muGique 

Corte RGB + Prise TV Secam 

Carte 6522 Via 

Port pour une code 

Ventilo 1 W, supierfiilemneux 



NOUVEAUl Pthcespecide pour diskettes (100000 trousmin.) [port:: 13 F)69 F 
Ordinatevr multLCcmipa«l)lo Forth, Bosic, CP/M, M5-Dos, CP/M86 

^triVez^, nous votfs eriverrons une Hste pht comptdte de nds orttcles. Revendeurs, contacTez-nous. 

Noire devise : "DYHAMIT COMPUTKR : MOTHS CHER QUE MOI TU MEURS i' 







Dfstribuleur 
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Prolog II 


Proloqia 


1/65 


HC 


Lanqage d'lntelligencet^tiffcielia 




Basic Microsoft 


Microsoft France 




1694.00 


Le plusrependu 




Mac Forth 




omA 


riFI:153S.OO 


Trais versions 




nacinuisri nraicat 


Apple 




1 JiJD>Uv 


Kfraull iwerpFetC 




Macintosh Saaic 


Apple 




1 430.00 


Basic pascafien 




Pascal UCSD 


&U5 




7000,00 


Pascal compile 


2 


FliflVlston 


Apple 


10/84 


2360,00 


Les Informations en Images 






CantrolaSf 


10/64 


30S3,00 






File 


Microsoft France 




2396.00 


Slrutture des ffches varirfjle 






Apple 


i0/8d 


4150.00 


Tri multi-cnUrBS 




AO MacFichler 


Answare 




23Q0.0O 


Main street file ^ rnon^ia 










3320,00 


Expr&ssioR mulUforme 




nacsiocK 




10/01 


1779,00 


6e5tton de stocKs 




Pfs FitgyReport 


Sonolcc 


I0/B4 


2711,00 


OrgBni^az votre systiftw 




riactedger 


LogiClfllP.C. 


1 1/64 


MC 


ComplaDitlt^ 




MjcCach 


togicifliP.C. 


07/84 


2600,00 


livT-9 de caissa 




niniracL 


Id^es tnfarmatl<)ue 


11/84 


HC 


Factw-atlf^ simplin^e. 


3 


Thirttank 


(jamic 


07/S4 


1957.00 


Traitemeni Jidees 




flega Harge 


Fee [far 


11/84 


NC 


Personnalisation par le dessin 




Word 


rncrosoft France 


10/04 


2350,00 


Sur nmprlmttiucosr^dl'^ran 


A 


Pans Creation 


A.C J. 


06/04 


390.00 


Ad res 565 




MacCrypt 


CE.H.I.A, 


1 1/84 


NC 


Ficliiers codes 




PoiyPlcfw 


Potygon6 


09/04 


790,00 


Carnet d'aiiresses 




Mac Agenda 


Gamtc 


09/84 


1174,00 


Ert^iof (ft iBwps 


5 


Mac Terminai 


Apple 


1 1/84 


990,00 


EmuiaLionTTV. DEC, VTlOO... 




Telemac 


Mediatec 


1 1/64 


NC 


EmtJiaUon lOM 3270 






1 iBUldLvL 


1 A/RA 


ITU 






nacToll 


Hallo 


!l/84 


fic 


MtnHel inLelligent 




Maq^ona 


C.E.R.I.A- 


11/84 


HC 


Con^eseur Ulepbomque^^ 




1 la'— jpdLt! 


^ Q A 


1 if U"1 


hir 
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Mac graph 




11/84 


ffC 


D^sifsnnal granhiqiw 




Chart 


Microsoft Franca 


Og/84 




Rapresentation graphfque 


7 




CD 5Dft 


n/Q4 


NC 


Oestion cabinet dantaire 




MacDent. 


Dag informattque 


11/04 


«e 


Ql^'toiXl'uri cabinet rlflntaira 




MacDoc 


C.M,S 


I1/S4 


HC 


Pchir medecins generalistfts 




Doc tor Mac 


1 fin 1 _f i k ,a 

JSR inrormatiqufl 


nC 


NC 


tjonneos meoicaies 


1 Transfu I'A.B.O 


Transfu latia-serv. 


12/84 


NC 


Laboratoiras d'analyaes medicales 




MacPharm 


Inpharmez 


n/84 


NC 


GesUw dtme ph^rmaicie 


5 


MacJack 


Af^are 


08/84 


499,00 


8lackJack 




MacSlots 


Feeder 


09/84 


924.00 


Deux jeux differenis 




Jeu:< de mots 


Hello 


1 1/84 


NC 


Reserve au« an f ants 




Sargon III 


SonptfiC 


11/84 


r*c 


Ecnacs. 9 ntveauN da compieKite 




MacManager 


FeefJer 


10/84 


700.00 


Jeti de roTe 




Reversi 


R,C,I informatique 


n/54 


NC 


Strateqie 




Boule de silicmm 


Hyper log 


09/94 


475,00 


Votre autop^rtrart 




Run for Ihe monay 


Feeder 


09/94 


593,00 


Avonturt 




rtac PuEz^ft 


Feeder 










Transylvfiiia 


Fwter 


09/84 


540^0 


Aventire 




Le compte e^t bon 


Polygone 


to/84 


295,00 




9 


MacProject 


Apple 


11/84 


1400.00 


Plflniflcallondesorojets 




MacE^rt 


Answflre 


1 1/84 


HC 


SvstefiM exoert 




Slide 1 


SI, I Realisations 


12/84 


K 


Pianafarchitecture 




Da Vinci 




10/84 


8BQ 


BjbliotheQUBsde deoins 


) 


- lan^aget. 2 - gtstiwi oj^tabrlil^; 3 ^ 


traitmnsnt de textes. 4 


- orQOTisation. 5 - coramttfiication. 


t 


- graptiiamfi- 7 - nwlecine. 3 - jeux. 9 - (fivers. 
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Omnis 2 a I'essai 

Guy Lapauij^ 



Cc?l cs£ai a eto realise sur un Appk' 
e muni deux lecteurs diz disques 
souples. None impression generale? 
sus" CO logittel de gestion d<? Eichicr^ 
litJiL (;n deux niuts PUISSANT - 
COMPLEX^ 

Premier contact 

Enfin un bon Guide 
Pedagogiquc ! 

Ne parlons pas dc ses qualites peda- 
gogiques propremenl dites. on a deja 
fiiif mik?u>;. il manr]LU? p.u partinilier 
certains fac 5imile d'ecran M^ii^ il .-t'- 
pare TRE5 NETTEMEINT li^^^enilel 
(decrit dans uti guidf ppdagoQiguf- 
simplifiel. les options ou lonctionnali' 
tes plus complexes (reunies dans un 
guiae. p^iil^fwjiqM^ aV5nc4) el de- 

dont beaucoup pourraient s' inspirejif 

De nombreux lo^cicb proposent au- 
jourd hui _Mpe Sls^M^ "Tutorial" 
Rpui- Us Jbij^ tias. Compte 

tetiu lie 1^ complexity d'Omnis 2. 5ur 
laquclle nous r-eviendrons, cette solu- 
Hon aurail peut-etre pu etre rclGnuG. 

Regre^tlbns une -ambisu'it^ des dt' 

part: sptts avoir monire le danytT 

tfe li^EiwailleT succ les disi^sii^s ori^^i- 
naux, on explique commeni fair*^ dii-s 
copies des disques Program et Utili 
ties (au pa^ge ' pourqu^ii pm Pro- 
gramme Ufilftaires?). Mais on gk- 
pltque aussi que !e disque Boot ou 
Sy^fpm (m^p rpmarqiipS su!^cepti- 
ble poutliunt dts mtmci ov.ini^f.- qut- 

les autres n'esi pas coptabW II y a ]<\ 
dp qiioi pi'rlurbi'r grandi^nif nt un 
neophyte Ce n e5i quo btaocoup 
pLii^ lard, en abordani la leciure du 
Mt*ni.i<^l de Refi^rpnrt* nuVin t^sT 
ovise d' avoir a commander au lour- 
nisseur un rinuhlt^ ce di^que 

Les disqufs ^nnt. commt' nou-^ 
uenons de If uoir. au noiTihi*' d*? 
Irois. Ci^aque applicolion. minirrn? 
soir-elJe, n^cessite de son cole deux 
disques : ia "librajrie" (le^ esplica- 
tion^ i^onc^e^tngmt \m denamlnafion de 

^*aug s£Hit pas n&s convain- 

d^i^J ^l^te "data" (donn^es 

nc serait pas plus mal). 

Done, aucun liavdi! |K>^Mble s^ji^ un 
minimum de dnq disques avcc les- 
queb on doit jpogler 4^n^ d*^ipt lec- 
teurs. tiuot tfeii>ittei^r 'tS:wI^^t*!^r 
ment un debutant Comprenona bien 



quG ce n^Gsl pas une critique du logi- 
ciel mais dela (iocit chps^ 

:^oni presentees. LS coriipiexife eSl \& 

rancon de la pui^sanct?. on peut 
dire qu Omnis 2 n est pas fait pour 
etre utilise normalemeni par un ama- 
teur sur une conii<juraIian Apple e 
avec deux diaques ?ioupl^5. On p*:ut 
poumni lift' dafis 1^ quide pedaqot^i^ 
que [li^coiL 1) Ce Guide Ptrdagogi- 
qiie part de I'hypolhesc que vous 
n'avez pas ou peu d' experience 
quant a I'utilisation jd'un micto-crrdi- 

Dan;^ cette hypoth^se, T opinion de 
E output de ces lignes (qui n'engage 
que luil esi abstenez-vous de deba- 
ter <ivec Omnib 2. ^[ commencez par 

vous familiaiiiet avet la ini^'.EO-jnfuJ - 

matique en utilisant un logiciei moins 

Hies utilisent de la^on syslemafique 
la rouche "ESCAPE" La mode ac- 

tut^lEc (^sf pliJinl d'i;[ilis(-'r [p^ loiichps 
"POMMK" Nt] prenons pas parri 
Les touches POMME" presenient 
Tavant^^^i*. j'lanc non rU'isiqiii^*^, dt* 
seivir assez normalement a tout ce 
qui nest pas entree de donnces- 
Mais elles sont sp&iifiques des ver- 
sions e et /'c. et d'aulres comman- 
des doivent blen ^tre adoptees pour 
l^!^ versions ;inteTipnrpi; rip l Apple II 

II n'existe pas de comniande (ou du 
moins n'en avons nous pas rencon- 
tr^e) donl an ne puisse pas sortir si 
JE^ 5? est entrc par meyarde. VoilS qui 
fiSl rassurant. Seuie ia frappe irlop- 
pOFtune de "Q" d^i^le menu "$^- 

qrommes. Ge n^esi pas blen grave, 
aUcune donnlie. n'etant alors p^ue. 

La creation d'une 
structure de ftchier 

La puissance 

On peut S peu pr&s tout feire dans 
re dnrnrttnp. qu'il !?"a9i!WP ■ 

• de la presentation des ecrans, 

• de la definition des rubriques: 

• des nombi"eu5es options de format 
^ui Jeur 3ont csssoclees: 

• jnpd^ <te contr-ole des en- 



de dotation des rubriques cal- 



Qn peut aussi (alors que cesr un 
p^nt faible de nombieux logiciets 
gestion de Jichiers). modiiier la struc- 



hire de fichiers exlstarife sans perte 
^'ij^(^ima,tioris, Au prix touteft^ 
nbrhbte^s ""jonqlenes'' aVefc fe^ ^ 

RegrfPitons ^culement ' 

— la limitaiion a une ligne de l en- 
sembie nom d'ecran + conlenu: 

— Ja limitation a 7 caratlert:? du uujli 

La cnmplexite 

La %>G de tomn^m?)^ n'«s! pas 

a Tecran S O.S. relativement fre- 
quent. 

Mais surtout. T0UTE5 les caracTeils- 
t.iqu^?i des rubriques sont a cntrer 

:?ou5 iojnit- dt: codes a un caractere 

isdXii ia longueurl. Les assez classi- 
ques"" C pouT caracleres ou N pcfut 
num^riques s-onl ^ifiiples a inteipre' 
ter. Mais I ou J pour les index s^on 
leur nature, les cod(?5 de protecti^fl, 
de cakul..,. sont pEatjquement fm- 
possLbles a retenir par coeur. 

[| n est par exempli pd^ tvideiil que 

lattribut: 
+N2VE 

conceme une rubriqut; takult^t, iiu- 
merique, 'Z decimales- acceptani des 
valeur^ negatives et reputee vide si lai 

pie du manoet^fe r^&'fencc! * 

Les formules de catculs et de verihca- 
tion (tres precieuses certes) utiliscnt 
de nombreuses fonctions qu'on ne 
tmiive pr*:jgr^mm3tioTi. Par 

exemfJe LEM(.„1 pour fe nomtra de. 
caracl&res d'une chaine Ou CONf 
pour une concal^nation de chaines. 
ou encore ur^e formulaijon d'algebic 
togique tr^s paritcull^re utlllsani \y.'s 
s^ignp"; ' Ki et c.eci des la legon 4 
du i^uido pe-dL^gogiqut? ^:implific ! A 
noTer que. dans d'auires cas, on eni- 
ploie O.U pi F-T PTi Tnutej; ]*>rtres... 

La:gic^iiatl de fichlers 

La puissance 

La Eniilupjiate des dei^ils uuli^ables 
darts fe ct^^m des - strtictui-&s p^- 
met de ncMnbieux conlnMes au. T\h 
veau de la salsie. Le logtciel -pemier 
par Pvemplp' 

• dv. ne pab einrer deux fois le 
mprrn> nnmi^rri dp rodp. s\ rt'hif'-ci 
doit etre unique: 

• de controler qu on entre bien Mr. 
Mme ou Mile et rien d'^utre: 

• de verifier qu un code postal 

compone 5 chlffres (rii 4 nl 6): 
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Poffi' s n° IS 



,€3pple-tell 

un modem qui tail d'un simple Apple, un Minitel intelligent 



Appte-tell comprend : 

• Une carle Modem .^c u3''i" un decodeu^ Telei©! 

■ Un logiciel d'ErTiuladon de Termmgj Mindel ennchi de 
rrois ^Diouissant'es fonciions (celLes qui r^lsaiefii \e plus 
detaul jusqu a present sur voire Vlimteli 

IMPRESSION : in-if)fir?^anl^> ere vofro Apple est ewploiioo 
30uf 30rtT 'i-:"^ copies - popicr aort vou^ avez bGGOin lorsquc 
. :■. ^ . . '■ <. un serveur 

STOCKAGE : les Oisqueties de voire Apple 5oni uniisees 
pour enregislrer les pages donl la con 
Sultation uous e^t n^cessaire 

• ay formol iGlelel iccgI h dire 

telles que vc-us ie5 a^ez revues). ^•CS^BBTjtaf _ .^ > 

« en mode Texle pur (A^GJI) jtoar e> 
pJoitaiion locale jlleneure 
AUTOMATISME : I' intelligence de yolre 
Apple eat mobilise e pour accomphr 

iijue vm^ liit avez fJ^sT^jie lapoei 
la^ihonigtffl; DTientaiion TRANSPAa 

irer sur papier et ou sLif wsque tes 
dunnees t;uniiuliees, puis puur iraiie^ ceilea-ai, en tea in- 

corporanidans ^ire appiic^ijon 

sans aucun laiguage de prograniniation, grace au nicde 
d spprc-l.si^ige d'Apple-TelL? 

EvenoTient du dernier SiGOB, safcue par route la presse- 
cor-sace Parnme d'Or 1983 par le jury Auplo. 
n n^pi-' Applf 'Ten rrrarquft unR niuiatinn flftcii^ive rl^ins 
-.v^i .1 ..n des techmqijBE vftf^oiex en GnvlrennarDeni 

• pcinr darr^i a la pronierajion des mai^nels sur voire 

!"..]'-LV.i ■itiini-Sicob'i 

HELLO Informatlque " <jt:^*;\/ ^'^Wi^me -r-;! i, ■ 



vous dispo- 



autart au"on 
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f Ulilisation opfiinaie aes re^snurces a<jnl 
deja (ttisquG^ irnpfirnari'e logiciels, etc \ 

• Ulilisafian pLj^5ible en rrtodc Terminal 
mode Serv-yur fiusqua quaire purleb) 

• tniin fel cesi sans dojte le point ^e plus (mportanii 
JONCTinN etilre le iTiond^? exleneur el les oulils 
standards de votre AppJe I'l-ncorporation des donnees 
daris ApplG-wTller Visioate. MulKplan, PF5, OuiCk-FJc. c!g.„. 
m^meOansvos appiilcallurispersonneilEfs (corripl^llil^ b-uivriJe 

commandes, fichler ) devisni possiDle. 
CARACTCRISTIOUES GENERALES: 
• Modern muliimcxiee . 

- 1 200/75. (M^duplex) 
1 20O (^lalt^duptex), 

- B00 (h^f'f^olex).3O0 ifull-dLiptex}, 

- slanrtarde CCITTpf BFI L 
icetle caraclenslique unique 
rend accessibles fes serveurs 
nord-aniericalns, y compris 
par reseau te^phonique 
commute) 
Sorties video 

coiiiposile (N & B) etP^/itel 

couieurs 

• coraioatible Apple 3. Apple 
2i, Appk- 2e (48 K. une 
disquofk-i 

portD que' slot fibre 

do voKe AppiL^ 2 W Snciel^ 
. TrarsparfCncrj ^ AdfCGSC 

du ftysl^i^ ^Vifle V- .V-V- 

Codepo^al Tel. .,.,v>.,...-,.., ^ 

□ ScjuHaiieracevofTdnedocL/rnerimirDnsur'tesvst&rite.Apltfe-Tei 
iL-gu?)Tim CI |uini pai □ cneqije utiiiL^iint- □ GCF*^ 



HELLO 
informatiqiie 
1. rue dc Metz 
T5010 PARIS 
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leur appiAHtion sur J'ecran),,. 

Attention d'avoir sous U mata UBfl' 
lisle dcs controlt-s eif<;cluus. sous 
peine de courir risque dt' lu- 
lamais remplir une fiche. par t'^fni 
pie Oil B cntot.ini mi?ttre M. pour 

Ti^s rrotftto^^s ffosSbilites egale- 
nfient d,ans 1e domains la recfiCT- 
che, da Iri, la selection Pos5iblll- 
t^s Ion Int^res^finifs <U' mi^^ ri mur 
ft Hp suppr^^ssion niiilripli*. Hi' rprn- 
pie de donnee^ d ilti L^iirei^istroni^^nr 
sur un autre. Tres utile tonction de 
"hardrnpp*" d'prran. pfr 

La comi^^Xlt^ 

Hie cat Jtic^fi g^Twl^^dans Ic^pbi^ 
Boh L|ije ddiii Id ci^iioit Heloris 
touteiois le meme feot&'isme de b 
lignc de commandc?. 

L' utilisation d(.^^ lormats de recherche 
n'est pas louiour^ euidenie. Remor- 
quons au passage que les signes 
et ">"■ vGulent dire taniot strtctement 
pdus petit (ou plus grondr tani6t tnfe 

Exemplf [du yuidf p^dtiyoykiuf 
duanc^] pour un formal de mise a 
joiir inulMpIp 

INDCLF. - UPP [ CON f MID 
INOM, \. J). INITS]) 

Si ce n est pas de la pioyramrndtion. 
qu'est'ce quH ccsi ? 

Les etats 

On pourrail d ce sujel i^iire 11'^ 
memes t^'pes de rcmarques que dan^ 

1*?^ prifr^grr^phv^S pTPnylt-nts, triril ji'.hI" 
lo puissance que pour l<i i iiisipU ^iit 

He lassons pas le lecieur el conien- 
tons-nous dp dffux r^mEftqiu^impor- 
tantes: 

Puffisance ■ outre Ics cla^siques pro- 
ductions ductals el d'etiquettes. 
Omms 2 possede un systemt? tres as- 
(ucieuy de production de lettres pQV- 
sonnoliseea, 

Coraplexlte : Los codn^^ di^ conlrolo 
d'lmpffiiDante teis que le nombre de 
carm^res par pouce, le souHgnc- 
rn^nt...- 4!tant indu& dans la de^nition 
de t'etat un cliangenient dHmpii- 
mcinle necGssite une revision 
compl^ie de routes les structures 
d elate qui ont t>ie Jefinie^ [seulfi les 
options gene rales teiles que longueur 
de la ligne, nombr^^ de lignGS par 



Un sysronir irii^i'Tiuni>c ei iri^s complet 
cles l.:lih,'s a 4 niveaux iplus (e 
Miiiire. qui d][ bien fion nom...) pi*\il 
etre mis en place, 

La definition de c& qui est autonse 
ou interdit a chacun est asse? simple, 
mais lonyue a inetlre en oeuvre. iie 
serait-ce quv? parce qu on descend 
{ce qui est parJois predeux) ni- 
veau dt Ici riibrique ^lementatre^ en 
lecture et en ecriluce. 
Quand t ensemble est cree, son utili- 
isation pose aucun pfoblemtJ, 

Les utilitaires 

JI^^iiI tres comiJiels. tneme s'Us ne 
^ont.pffi Eoi^ours tres simples utifi- 
sct. ivioUs^^ypnfi deja cvogUe c&p^c- 
^Sme ^ piTipOs Se ta rnocHficettion d& 

structure do? fichier^ 
lb pt'[riLk.'Ut'ni. uuiit' Jt;s (.l^^^^ique^ 
copif^ desljuclions, initialisations, 
compaciage^. , de faiR* coiiiniuiii 

quei Ouini^ 2 dvtt. d'ou(n'> luyi'. 

par I inlermediaire de iichiers au tor- 
mat DIF. et cg dans les deux sens, 
Un autre utfltlaif(f pyrniel tfea^tonvt^i- 
3it>ns^efta^ et le DOS .3.3. 

Csqptacnite et 

Seules limitcs de capaclle reiicon 
tr^es CG soni celles de I'Apple 'G 
k i;\ r:isqut?ttes: en iait. un dis- 

Que (litre p-fT evempit' tnt't ceEte 
pau^'re confj^uration- d<' UUt>&t^ 
bloc;, pat fichier ou de 960D rubri 

ques dans un formal d'tm ? 

Seule hmiffitkm Inher^l^ m J^^cJet. 

deja signaled 79 caTacfeffiS p^. 

"nom d^ifeBli"}- 

Ne di^spsantqt^ d-ime version "bri- 
de'e^ au niveau de enregistre^ 
ments, nous n'auons pu faire aucurl 
essal de pedormances sur gros fi- 
chier. II semblo que les rccherclies de 

type T {E^iir fubriqu^!!^ indexGes], 
soierii ii'juicmi.s ue:^ rapide&. alois que 
les tris e1 les reciierche^ de type R ne 
le soieul gu^ri?. memt? pour des fi- 
chiers E*?talivenieiit p [y defies . pour 
50 enre^'slrctnenls. un tn ou une re- 
chet^che simple durent environ 40 se- 
condes- 

Syntfi^se 

Nous avon^ <>cnt en GXGrgue : PUIS- 
SANT - COMPLEXE. 



Log fonctions de creation 

Cr^^itian de structure de fichier?. for 
mats d'eiats. mots de pasye. HJtit lu- 
!alemenr hors de porlee de l ittilisa- 
teur derbuianl Mi'me ^^'ayissant d'un 
urillsateur coTifirme dtr jiiitiu-iufuriTki- 
lique, il n esl pas evident l|U il n y ail 
latnair- de blocai^e;*. au iiiw.iu d unn,' 
codKlCcitlon ires pousjet^. ou ik I uti- 
lisation de I'ali^ehri^ loyique ou de 
veritable^ cleineniLF de prayrammd- 
tion, 

Maiscelui guJ aura la capacii.;' {et le 
CQtirage) H'allt^r iiisqu'au bawl sera 
r^ompense par de3 pei f ormance^ 

eitceptionnelles. bunoui auec une 
configuiation "musctee" 

Les fonctldns iIb gestion 

d^^ls sonl p^us accessMtfs, moyeTi- 
nant deux precautions des brs cju'll 
s'agit do neophytes- : 

1 - 1 imilei leur travail .vis rns au 
TOUS it'^ parametres soiii bien defi 
nis. V comprls Iris el selecdons. et 
a UK option ftfindament^ilps de gea- 
(ion, en excluant la nilse ou point de 
tableaux de selection par e>:emp!e. 

2 ' Le? niunjr d une dotumenlatior 
^ynilit^iique, d'une piari sur les 

comm-iriilc^i du Int^iriel qiTil.'; d(>urniit 
utiliser. d Liulie part sur !□ codification 
adoptee (ceci n est special a 
Omilis, mais d'autant plut impnrtant 
qi% les GQhIrolcs sGnt nombreux €1 

Nous sommta plus resetves [^ur Ja 
possibilite de faire mettre *?n oeuvre 
par a'Jmporte qui les fonctions de 
g^OTl de disque. y compils les sau- 

En resume 

Un logic id de loul premfer plan. 
l^eu\ ad^ipte a une configuration 
comportanl un disque dur capable 
d^ satis^re 1^^ plus exit^eant^ et 
conststuer un outil comple! pc^r ure 
application dont la qestion de ftchier 
con^tilue 1 essfnIieE 

Mais un logiciti a ne pa^ inetlre enire 
toules les maiJis Ce ri <3S\ pas un na- 
piotbi: : un pt^ut luctii^ triiU^ louL^^ 
les mains fou a peu pr^s.,,) une voi- 
ture de s&rie. n\d.ii pas ufie formule ! 
Hi un 60 lunue^ StiIlukm Le lepiu- 
cJiG lrait .au tatt que^ ia. documGotafion 

(ot aussi la pub&dt^j tend^t ^ minl> 

miser exagerement ce fatt. 



Ne soyeE pas an *ih^ ; si vous possldez un Ifsez 

Pom's ! 



52 



Pom's n= 15 



Initiation a I'assembleur (5) 

Gerard Micb&} 



Ce cinqLu"6m« iivMs fnatt^uera \a fin 
de notre revue de detail des in.stnir- 
fiffl^S de TassGmbkur du processeur 
^02 qui &iuipc A(:$ile 11+ ou 

Comme dans tout feuilleton modcrne 
qui iti^pi^nii^. nous aurons cIroU ci 
quelques "lla^h-backs" sur d&9r ele- 
ments importanis 6c la vie du hcros, 
b pile t-[ It? Tt^yiSitrt? d'etat en Toccur- 
rence. dont nous awons jusqu'a pre- 
sent laisse cGrtains asp<?ct5 dan^ I om- 
bre Lt! dicoonnalre ^tani ainsi 
complei^, vous pourrez d^<t^rm^^ 
parfef le ^^6502" cpurammeht- 

Les intemqitjons et 1e 
BREAK 

Lorsqiip nnu'i a'-'ons aborde ie rt^gi^- 
ite d'etat du microprocesseur dans le 
Pom's 13. certains indicaiiiurs n'ont 
faii IVihjpt qiiP ri'imi? m*^nlion som- 
maire. Tel ful le cas pour le bit 2 (in- 
dlcaieur baprss^ I comnne Interrup- 
tiptil Gt pnu^ 1(* hit 4 tindicat^ur B 
cdrtim^ BreaM- Ri^^rardns d^s maJfi- 
T*?n^nT c&n^ iniu^^tice 

[nterruptions du 6502 

Mous devrons nous limiter sur ce 
point a un expose quolquc peu theo- 
^i^\Jt^. Lai It;^ signciux d' Interruption 
ne peuueni etre envoy es simplement 
au microprocesseur par le biais d un 
pragrammtf. Us vi^^nneni en tiffet des 
peripheriQUGs connccles a Turiite 

cenlrale. via les cartes d'inter^Q et 
les "slyliil' qui Sjc^it rehfe au proces- 
seur Erj rgst^Vun p^ripherique de- 
mande ain^ au 6502 dc stopper 
fes^LUlion du programme en cours 
et de trav^^ilk'T i-nomenianemenl pour 
lui, afiii, di^ luL [[ansmGttri? don 
nees duiil \\ a ljt^!^otri pour 5 acquirter 
de sa propre [ache, on de recevoir 
]e& donndos qu'il i-'fit charge dc four 
nij ^ iViduidl^ur. Le terme ' interrup- 
tion" ne signifie done pas que le pro- 
cesseur s'arr^tc. bien aOr, OWiS qu'il 
eesii; (Je [ravailler pdur TUTi etse met 
au sewict? 6e I'aulre. 

On dislingu-t: d^ux tA/pE^s d irHerrup- 
lEons. c'est-a-dire deux lignes reUees 

A deux broches diffei^ntes ^u. .6502 : 
1g5 interruptions ttiasqiis^W '{tfites 
IRQl et les interruptions non m?is- 
quables. ou prioiiiaires (dites NM!], 
One infj?vruption IRQ ne sera prise 
en compi*^ par le processeur que si 
rindtcateur I (bii 2) de 5on reqislre 
d'etat psi a Fn rriifTtant cet indica- 
teur Q 1 . soit partir d un pro- 
gramme ut]llsan?ur. ifjir dans uny 
routine d'inteWac^ d uno carle de pe- 
ripherique, on peul done "in^squer" 



Xxju^ les siynaux IRQ |K»LUtateuI 
aniver au processiCUrt, JMSqii'S ce que 
Ton ait rsmis le bH 1 ft 0. Par conlre, 
quelle que soli la valt^ur de bl! I, 
une inieiTuptaon dL' rupe NMl ser^i 
toujours prise en compte et provo- 
queiti Tdiiet de loiilt? duite opera- 
tion, meme s'il s agit du liav^iil d un 
peripheriquc ayant dq^ interrompu 
\k piucBSseur par tes Mx&s. IRQ- ott 
NMl. 

Oans un cas conime dau^ I'dulie. 
Idirsga'dnive um (ntemjption. 1^^ pro- 
;.eessGur- t^rt^m^^ p^x acheyet I jns- 

au sommct cife la ^ le contenu du 
CompteUr Ol^Anal, dans Tordre octet 
haut octet bas (rappelons que \e 
compteur ordinal est un reyisCre sur 
16 bits qui contient toujour? Vadresse 
de \a prochaine i n^^ti ugtn:)]! a t^ecu- 
ter), puL-i il empile egalemenl le regis- 
tre d eial. apres en avoir mi;^ le bit 4 
(indicateur B[ a 0. 

5^il s aqu d une IRQ, il saute alors a 
I'adresse contfefuue dans les m&noi- 
res $FFFE et Sffrr [er dautres 
termes, il charge le compteur ordinal 
B,m k Mritenu de $EFFE4FFFF)., 
Si ime- ^{41, en rev&nche. It 
saute a Tadresse Gonienue en 
$FFFA-$FFFB. 

Notons bien que ces operations soni 
programmees dans le processeur, 
c'est-a-dire que, quel que soit Tordi- 
nateur etudie. le debut du traitement 
d'une interruptiorfc seui celui indique 
ci-dessus si c^est un ordinaleur cons- 
truit aulour d'un 6502. Ce qui se 
passe ensuite depend par centre de 
CG .que ks concepteurs de la machine 
cait .iTilfl a ax J esses $FFFE4rrFr 
el $FffiV$fTFB, 

En ce qui coricerne les Apple II 4 et 
e. on [rouve en JFFFE-S^TFF les 
L-'aleurs '40 FA". Unc IRQ brcincl-ye 
dorji. fliidlt^rnt^nl sur une routine de- 
butant en $FA40. sur laquelle nniis 
reviendrons un peu plus loin. 
Ell iPTPA-SFFFB, on lit "FB 03" et 
une NMl nous am&nera done en 
$3FB, Si vous mettez voire Apple 
sous tKiisjun sans charger le COS,, 

yous ne trouvefeit Jim m ^iflrMt 
celte a^ifesse, maia st vou3 "b<iO- 
ifij" le POS. vous y trouverez "4C 
&S FF" ou encore 'WMP $FF6.^", 
c'est-a dire un -.aui dons Ic moni(eur. 
C'esl evidemment au programmeur 
de peripheriques qui enrend iiiilispr 
les inferruptions NMf qu il app^rtient 
en laii <ie menre aux adresses $3FB 
i3FC-J3FD un .IMP ^ I'adresse de 
sa ttsutee de g&s^n^ des intetop- 
dons, 



Instructions de i^assembleur 
liges aux Intermpttons 

• SEl (78) : met Tindicateua I a 1 
Les interruptions IRQ qui pourraient 
aniver apr^s rex^cution de 5EI se- 
ront done masquees et ^OiTSes. 
Ceci peut servir pour garder la "prio- 
lite d^ns, VutUis^iaon d^ ijfeS&aU^t^ 
dti itUcpc^^Pdces^ur (^lif en cas Sin- 
tcmiplion NMl loutefois). que ce scat 
pour un programme utilisateur ou 
pour \e tr^iu^ii] d'un peripheriqui? 
donne. Dan^ une rouiirie d*.' ^jf^tion 
des interruptions deshnee aux divers 
peri ph^nq ties, en pafticulnfi l emploi 
dc SEl permet de sauve^iirdi.r le^ r.?- 
gtstres non diieciemeni empties par 
le processeur (accuraujateur el regis- 
tres X et Y} ou de modifier eventuel- 
lemenr le vecteur IRQ (voir plus 
lojn), sans- craindre rarrivee et la 
priite «n ctmipte d'une nouvelle inter- 
ruption qui jettferaif ia.cqnfi^Dn ■d^^S 
le systems. 

En effet. apres Ti^x^cution des rowS- 
nes de service du pynpherique ayafit 
demande 1" interruption, on doii pou- 
voir reprendre le programme inTer- 
rompu exaciement a I'endioit ou il a 
eie stoppe el dans le mi^me contexts, 
ce qui suppose que l or pnisse bien 
sauvetjarder tous les regislres, au 
moyen de la pile notamment, aftn de 
les recuperer ensuiic en fir^ de rou- 
line de gestion des Interruptions. Un 
autre signal IRQ eventuei doit rester 
par consequent ignore, au rnoins jus- 
qu'^ rach^vemenl de cette sauve- 
garde. Si le signal persiste durant que 
Tindicaleur 1 est a 1, it sera prts en 
compte a son tqur des que le "mas- 
qi]e" sera leve par Tinstzucfion sul- 
vante. 

• CLI [SSi ■ met a iJ 1 Indicaleur I 
Apres I'execution CLI. tout signal 
[RQ e5i pris en tojuptt^ \a\iLv uij 
nouveau cycle d'lntenruplion. Rien 
n'interdit de trailer les demandes 
d' inten uplioii d'uii petipherique alors 

m^me que le processeur est dejS uti- 
lise par un autre peripherique. Lors- 
qije le-^C(?Qnd '"rend la main", on te- 
travail du premier a I'endroit 
ou il efail stoppc et, lorsque celui ci 
es-l egcileuitrnl [ermine, (jri rt^irouve le 
programme de depart. Ce meca- 
nismc ne doit pas poser de proble- 
me^ ai le contexte est correct^^ment 
sauvegarde a chaque interruption. 

• RTI \'\0> . rotour d'lnterruption 

L execuiion de ceite instruction 
consisle pour le proces&eur a transfe- 
rer danii le registre d'^t sonun^ 
de la pile, puis t charger te cxnnpteur 



Pom's 15 



53 



teouvartt a, teur four au 'somrriet de ta 
pie. Si Torganlsfliion dt? (frie dt^r- 
ni^rc n'a ii>as ■ete perturbtv Ljumiit \i> 
Trailcmi^nl dc 1 intcrmpTion. or\ re- 
^'Jt;Jld duiiL d l endroU [compteur ot- 
dinal) oil J on trouvaii lors dc h 
prise en compic dc l imenuption, 
avec le m^me re^m d'&m^ 

Nous verrons par la suwe commeni la 
pi)** intervienl dan& b manipuUrion 
da compteur -ordinal, iT]ai!i, afiii d il- 
lustrer ce^ mecanisfne>. raci an 
(>xpmplf> <iimplih'^ (outin*? dt? ges- 
tion des interruptions (nole^ bien que 
lorsqu'on arn\/e a cette routine, le re- 

seur) : 
5EI 

(on masque l^s interruptions IRQ qui 

pciurraicnt syrvetlU] 

PHA 

TVA 

PHA 

m 

fsauvtytirdf daiis Ea ijife des re^sfres 

A. X ^'l \ ) 
CLI 

[les inlerrupHojis iHQ buiil de nou- 
veau auloris^es] 

Deleunin^iioTi du periph^rlque ayani 
provQQiie finterruption. en testmt 
pM Gxex^0 h contenu d'ad^esses 
^ffinrffe^ry S cheque p^npb^Tique 

connccte 
JSR ADR 

fADK t'^t I adres^e de d$hn\ des rou- 
tiTiGs SGrvicc du p^ph^rigufiv 
lut ptmnettent d'effeciuer sort traVait. 
C« routines rioivent ueilli^r ^ resti- 
tuor, S Tissue de leur execution par 

un ultime. RTS. un ConKrtu de pAe 
identique 3 eelui qiip Tori a^f auant 
JSR ADR) 

SEl 

TAX 
PLA 
TAY 
PLA 

(testaiiralif^Tl ^m j^^m A-X-Y. tels 

routine g^on des mtemipfionsl 

CLI 

RTI 

(reprise du proyranime intenompu} 
Si Line nouvelle iiiltrrupiioTi se pro- 

duii auant la fin ciu premier c^de^ 

alors qu« Ton vienf tfe d^otriiRer 
peripherique par eix^mpl^ (api^elans 
cela te stade SO). ]^ processeur noii*; 
tamene au d<?bu! ulr.' la !oii[itit' ti 
dessus ijii L'jii|)iJ^' le concexif dt? 
SO On (r^iik^ c^nsuili^ ^i^condt' jn- 

tiJ-miption. puis on rt'cupoit^ \^ 
CQnte>Lt(? de Le RTJ uum.s iL'TivoLt' 
a I'insiruction qui suit !dU el I on re- 
prend ainsi le traitemenl de la pre 
miere inteirypUoii, nvtiiiL de lecupe- 



rer le confexte mitial et dc retrouvor 
un RTI qui nuus repyrlt: cetie fols a 
la suite dti progiramRw de depart. 

Lorsqu'un{> routine de ce typp esJ 
utilisee pour ycrer des interruptions 
NML ion adresse doit etre stockee 
en S^FC-it^FD. S'il s '^igir d^ gerer 
des IRQ, Tadres-se doit elre implantee 
en $3FE-$3FF, comme le monfrera 
te p^agraphe aijvanf 

BREAK et simulntion 

d'toterrup o n e 

L'instruction de break BRK tOOl pro- 
duii des effets sembtables a ceux 
d wr\Q intemiption IRQ. eis <|i^oi 
elle ressemble a une inien uptidti' '^0'- 

giciel" mai^ av^c deux differences 

• f-f proLH.'iSieur t?n-ipi|^ |ti vdk'Ui du 
lofiiplcur orriin<il ^luqmenlee de 2 
[fonime si I'lnsiiuclion BRK ocru 
pait deux oclt?ts) 

• bn B du legi&tre d ^tai tfsl mis 
^ 1 (afors qu'il est a dans cae 
d'un^ ifttmui^on) avanl sauve- 
gard^. 

Lnsuiie. commi? dan?; U- rris d un*' 
IRQ. on saute a 1 adresse contenue 
en SFFFE-SFFFF, tt? qui nous am^ne 
done, sur un Apple ou '/e, a la 
routine commen^ant en $FA40, a 
qui il dippartifindra de faire le dlstin- 
^l^Q entre BRK et IRQ. Cette rnutine 
&^ l^^e ci-dessous et nous aliens en 
^re I'aiidl^tr. 



(BRK) et BM[ bnnnchcra $FA4C 
Si ie bli d^ signi' e^l a 0, rindicaieur 
B etait a (IRQ) Best BMl echoue 
et on pas^e a I'lni^truction suivantc. 
Ltyrie ^ nous sommes dans \e cas 
d'une interruption IRQ ei Ton saute 
a I'adressG contenue en $3FE-$3&Fi 

ddrt^i^yy devam corresporkfre au 

debut de la routine dc gestion in- 
terruptions IRQ si elle ei^sfe; Si XNo- 
ple est mis sous tension safts DOSy m 
vecteur S3FF--$3FF nc conduit "nutie 
part^: Si le DOS t?st "boote". II 
'.THkluit a fFF6r>. soit au muniti?ur. 
La encore c est au proqrrsrnnif iir de- 
sirant e^tiiloiifr les IRQ quM appar- 
tienr dt' meiiR' en 53rF-^3FF 
1 adresst' lie sa rnutini' di' i]i'>rinn f.li>s 
interrupt ion J (routine du type de 
celle pr^seni^e plushautj; 
Lignp.'; 9 A IS nou? ^ommes dan^ Ig 
ca5 d un BRK On recup&re le regis- 
tre d etet (PLP). on sauve Ite regls- 
tf^ -^ $45 a $49 [dSR $FF^- rou- 
tine dc la ROH du mpnileur), on 
sauve roctet bas du corhpteur ordi- 
nal empife Inr^ dw RRK v- %'K>\ [PLA 
STA $3A} et rocu>t t'li $36 

(PLA - STA >3B.i, puis on saute a 
Tadresi^s^ rnni,-!TMi^ i^n S^'^KH-S^f I 
En '^icinJard c'e^it a dirt' los'n.iuf 
vous r^ewej 1" Apple sous icnaion, 
53F()-^3F1 rontit^Einenl "."^9 FA": un 
BRK conduit done finalement h la 
ruuttne comiTicn<^ani en SFA59. qui 
^ffiche le cgntenii des re^slras h 
r^&cffiiil et cn mode jrioniteur. 

stoppant alnsI d^mufemet^t du 
j^ogramme en caar^ 



FA40- 


85 


43 




STA 


♦45 


FA42- 








PLA 






48 






PHA 




FA44- 


OA 






ASL 




rA45- 


t)A 






j^L 






OA 










FA47- 


30 


03 




SMI 


•FA4C 




6C 


J^E 


D3 


UMP 






28 






PUP 




FA4D- 


20 


4C 


FF 


JSR 


•FF4C: 


FA^O- 


66 






PLA 




■^A^; - 


65 


3A 




STA 


«3A 










PLA 






a5 


3B 




STA 


♦ 3B 


FA5d- 


AC 


FO 


03 


JMP 


<«03F0) 



Lignt J oji siockt? Taccumulcileur 

] ig-ni^<i 2 et ^ : on recup^re dans I 'ac- 
cumuiateur 1^ aommet M b pile 
(PLA). c'est-a-dfte je re^stife d'^t^t 
au mom^nf du ou f IRQ, 

puisque: Ton aEfive lei lS fiMUe (Jw 
cycle tfrnmi^fiorf i^mxU 
pfocesseyi. Cto re-^mpile aus^dt 
Gfette meme valeur IPHA) afin de 

fresGtver l orqanisahon de la pile. 
igriPS 4 a 6 . les troi;; Al^L amcn^nt 
le bit 4 de Taccumulatt^ur eii po^finon 
de bit 7 On a done pour bit de 
poids tori ni] bit d^ ^irjni?, I n. Ii. ,i 
teuT B du registre d'etat au mi^rnt:n[ 
du BRK ou de I'lRQ. 
Ligne 7 \^^\ dL^ bit de signe de I'ac- 
cumulateur. Si celui-ci est o 1, cela 

signifie que findicatcur B elait a 1 



Lfwjue UOUS Utillsez le break sous la 
ionne qtj$ lui ont donn^ les 
<x)ncepteirs de I'Apple. ij peVl suT- 
tout UOU5 5eivir lors de la rftisfl 
point de vos propres routiTies en Ian- 
gage-machine. En effet si lout ne sc 
passim pas con forme merit a uos esp^- 
ranccs. voue iu^erez Lin BRK dan& le 
programtTK? source en as^embleur 
^snit un rode OU dan^ 1^"' prog^aimiif 
obiet} a I en^3!-i-ijr L|ui vou^ ^^'[iibJe 1^^ 
plus signlficanf vnus t?n relancez 
Texecutioa En arrivant au BRK, le 
systeme stoppfe Jc ^M^^gramnie et affi- 
che les registies, ce qui vous permet 
d en examini^r It? contenu^ <3U|B 
Q^llii des. adr^s ,qu^! VCBJi^ Ulfl^ii. 
ate de v^er a^fr^^nd aux 
iraleiirs. f^e VtiUS avieii preuues lors 
1^ f d^ V^fre programme. Cela 
fecnlite bifoi souvent le diagnostic des 
prfpurs 

Afin d'illusirer le mecanisrne des in- 
terruptions p1 surinur Cf-lin de^ re- 
tours- d inttTriipIion^. dont It: break 
peut assuri^r une cerlaint? sjinulritjon, 
nous allons mainienant revedoa^r" 
le BRK (c' est a dire mo^Sfet le 
t^ontenu de $3F0-$3F1), pour qu"il 
n« conduise plus en $FA5'^ mais a 
TtnjtiiTe que nous implanterons 
notK-mfi^ries et quL puisqu il s agii 
d'Un exerdcp- dp- slyK rendra sjmpie- 



Pom's ft'' 15 



ment BRK IransparenJ En d auiies 
lermes, nous ferons en sorit? que 
RRK an milieu d'un programme 
n'exerce plus aucun^ actk>n sur son 
d&oulement [sinon au niveau des 
temps d'px^aitLon) el permette 1g 

foufine. tel-ge d-deSsoi^, digbute 3' 



Listing 2 










0300- 




3A 






0302- 






LDY 


«3B 


0304- 












ic 


ai 


BPL 


»030d 


030?' 


Qa 




DEY 






?s 




TY6 






4S 




PhM 






9^ 




TVii 






49 




PF-TA 




03OC- 


A3 


■IS 




»4e 


D30E- 


49 








030F- 


20 


3F FF 


JSR 


4FF3F 


0312- 


40 




BTt 





Ugnes 1 el 2 r nuu^ tirEivf rf:>!Ls 
lours en $500 apr^s etre pcissia par 
$FA40, qui stocke )e comptcuv o-rdi 
nal en $3A-$3B. On peul done le rd- 
cuperer ici [octei bas dans }e regisire. 
X octet haul dan^ Ic rcp-gistrc Y). 
Lignes 3 d 5 . pcjur ^prendre ]e pro- 
gramme en coLtrs (c^i dans lequel 
on a insere un break) a rinstruclion 
qui suit BRK il ftiul iL'clifier la valeui 
de ce complt^ur ordinal en le djmi- 
nuam de 1 (d^cremenlahon de Toe- 
let bas, pui!^ de \ -ja^i liciul tiC'LL'^- 
saire). 

Ligres 6 a 9 . on empiie le compieur 
ordincil leclU'K. dans Tordra oclet 
haul ■ oclet bas. 

Ligncs 10 el 11 : )e passage en 

w^arde du registre d'^t au liio- 
■rfl^ bteak i Tadresse $48 On 
vtt doffc le» retire el' le deposei au 
sommei de la pile. Celte demi^re 
pr^scnte mainlenani la m^me confi- 
guration qu'^ Tissut? d'uTie iniemip- 
tion. 

Ligne 12 : $FF3F flst le debut dune 
routine dv" monileur qui recharge les 
reqistres avec \es valeurs lues en ^45 
a $48 (ie passage en SFA40 a permis 
lo sauv^garde de ces rueiindb ityistr^ 
dans ces memes adresses), Un re- 
trouve ainsi Ic contenu des tegistres 
9H} moment du break ijdris le pru- 
plmme miliai 

Ligne 13; avec I' ins.tr uction RTI. on 
simule un retour d'inleiruptian el. Id 
pile ayani rorrectenient reconli- 
guree, on doit ryiourner au pro- 
gramme principal, juste aprcs i'lns- 
truction BRK 

Potir TTiettfe cell(? routine en m^- 

TTioire '^'OLL^ piiuvci: la chargi?r a par 
tir de Ifi di^qutnf d'accompagnernenl 
ou Ja renlret directement en mode 
morsi[<^ur en laparil : 

CALL -l.";l 

300 A6 ;3A A1 ■K) 

Pour en fairp. I^i nmivell^' routine de 



bieak, il faut ensuite en donner 
t adresse en $3F0-$3F1. Pass^ en 
mode m^iteur si vous ny ^tes pas 

3m mm 

,La 3re^ulit*c list^e ci-dessous rionte 6eir 
i^a de tesi En pnncipe. ell^ ddlf 
e^ecuier i:n HOME et afficher un A 
en haut et & gauche de I'ecran. Etant 
donne que nous avons mi^^ dcs BRK 
enlre chaque instruction, ceb ne sera 
t^ffeulivcment possiblt? que si notre 
rouiiTie t?n 5300 rend b\eu W BRK 
transparent Pour le vi^riiip' 1 h/i!ij(?z 
cetle seconde routine ou renirez la 
directemenr en memoire et lancez-en 
I'pypf-iifinn psr "2000G"" ^ paiilir du 
moi-iitcur ou "CALL 3192^ li parlir 
du Basic. Sauf en'eur de frappe, vous 
deurte o-btenir le resultat escompte. 
Ce[a vous donnero tine petite idtic 
de la facon dont les interruptions 
peiiueni nefoumer Vii^tige du proces- 
L^eur GU profit de periph^riques cl 
pernierirc^ n^anmoins une reprise 
correcre du derciulifmeni des pro- 
ggiimmei Enterrompus. 



2000^ 


20 


58 


FC 


JSR 


»FC!!i8 


2003- 


OD 






BPK 




2004- 


A? 


CI 




LDA 




200,^- 


□ D 






BRK 




2007- 


20 


PO 


FD 


JSR 


♦FDFO 




00 






BRK 




200e- 


60 






RTS 





Une instruction qui ne 
fait rten..* 

S'\] ne 5'agit que de disposer d'wii<a' 
Instruction transparente t^Ws tin pi^ 
gramme, il n'est pas vralnient n^es- 
saire (ce eerait meme j^i^t inuffla} 
de r«vecforiser le BRK ctomm^ "d- 
i^ssus. le 6502 vous offre €?n 
standard une telle instruction . NOP 
(EA> 

NOP ne realise aucun trailem^nt. ne 
modi fie aucun r^ijistre. aucune 
adresse el conlente df Et'xl^^imtr 
un peu de temps pour ■^on t'\i\-u- 
tion EUe n en est pas Eolakmeni inu- 
&e poux Mutant : 

• LorSC^iie ^ ou^ tt'^tez une rtjuiifiiG 

qui uous p' Jiiii; probleme. vous files 
amene hiE^n ^ouvcnt d,in- un prt-'- 

mier fL^mp^ <]ij rivj-n^. a Efcivaillt^r 
direct^: rriL'nl riu mvL'tju du codt^ 
objei en mode moniteur Si vous 
remplace/ une instruction par unt? 
autre plus courte (conipgri^nL 
moins d ociets) ou si vous voul^ 
effacer iwie .petite sequence d'itts- 
tructio™ qui i/Qus senibltj duu^ 
teuse. V0U5 aLre2 besoin d une 
instruction ualide, m priSVQEfuailt 
pas la colere du processeun mais 
tmnsparente pour boucher les 
^ troUs - Vous remplirez done c^^ 
demiers ovec des codes LA {nuu^ 
m vemms un^ petit exemple plus 
Ibin)- 



• NOP W fall rien, cerlebi. maiy t?!lf^ 
n'en moins Iraitee par le 

l^ocesj^r, fee qui iiu prcnd neces 
sdirement un peu d« leinps. Nt^P 
permet done d' insurer des d^lais 
dans Tcxecution d'un programme, 
aux endiulb voulus (pour ralentJi 
un affichage 3 T^cran, par exem- 
ple, ou Tie pas "affoler" la mecani- 
qutf des IttlKUEb de dlsquetle&.-,). 

Le decimal codig binatr^ 

Autre indicateur du reglstre d'etat 
laisse de ct^te dans le Pom's 13, le 
bit 3 ou indicateur "decimal code bi- 
naire" (DCB en abrege). rperite 
maintenant queltjues developpe- 
m,ents. 

Le IX^ est une technique do rcpr6 
senfoiicin tl^-^ Ttonibre^ correspondant 
a une VGision tronquee de rhe>;ade' 
cimal. puif.quc' I on no ri^presenTcra 
qjt LJjifJieb Jtuinidux U i3 9, tiu 
lieu de (I a I- en hexadecimal 
Comme toujours. reuenons un peu 
au binaire pour darifier les choses 
bur quaire bits, on peut coder les va- 
leur^ t^omprtscs entre 0000 el 1111, 
bKiil a 15 en ^'d^cimal" ou enGora.4 
a F selon la notation hexad^cirnate. 
Si I on SG borne a coder les chlffres 
d^tinidUA. on uifce Itrs "£:uTnbinai- 
scms" 0000 (0) ^ 1001 (9). mais pas 
les £i^vant6s (XOlO 5 1111) qui ne 
CQrrespondeiit paa h deb diiffrL^s de- 
cimaux. En hexad^dmaL un octet 
permet d(2 represGntei des valours 
Lunijjjjbe.'^ t^Tilre? 0(* til FK £0 Ti 'Zb5]. 
mais en DCB. du laii Jt-^ combinai- 
sons ehminees. on peui represen- | 
fer que les nombres ent^e 00 *^l 99, I 
Emtioyer la notation DCB permet " 

tout d^abord d^ tetrouver noire sys- 

ricftis E^dhi tio^ftafeitiei^ flius & I 
communaut^ de langage qu^awc- I 
rhexad^dmal, aiiiM. si Tun djuul«? 1 ^ fl 
09. on trouvera lO el non HA. Par I 
contre. cela suppose que soE^'r^f bu-ii B 
elimin^es dan^ Ctikuh It"^ ■uiiil 
naisons illicitt^s. sous peine dd gra^ 
incoherences dans ^es tSsuItats. 

Le proce:,'iCur 6502 cB^Ose d'un 
mode de takuJ en DCB. dans lequel 
il se charge lui-m^me de limiter les 
combhrai^ons de bib au>; ^euls chif- 
fres decimaux. Pour s^lectionncr ce 
mode, il suffit de mettre I'lndicateur 
DCB du registry d'elat a 1 au moyen 

de i mstruction SED {F8), On re\flent 
gii. "Sy^&me hexadecimal "nSti^" m 
me^^t Get indicfiteiir ^ ttm^h 
de Hmirucfion ifMproque &S> 

mi 

VfiUS. Irouverez ci-dessnus iin peitj 
.^^n^e daddifion en DCB. dt.i^t 
fious vous ldis&ons efaiduire l anfilvse 

— Avanl de faire appel a des routi- 
nes du systeme (moniteur ou Basic), 
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il est toujours prudent de fevenir S 
Thexadedmal. car ces routini^?^ soni 
prevues p.otir fpn^tipiiii^ir ave<; de? 
vi^^^ur5 hexa e* Toil obtient souveni 
des r&sultats bizarrcs si Ton s y bran- 
ch© Gn mode DCB. Ceci Gxplique 
pies*-iite (Je CLD avarl ie prGmfer 
JSR $FDUA. 

- $FDDA unc routine du mom- 
Ltur qui olfiche Ie contenu de^ I'accu- 

envoie un RETURN ft JFDIB attend 
b frappe d'une' louche au cfevifir. 

Si lanc^z cetTc routine (a parlir 

<3ij monilfur p^r 300G. par exem- 
ple). VOU5 vcirtT? .^ ^iflicher 0001 pui5 
Ie curseur Apr^!i avnii tape line lou 
rhp. won^ u+^vTt^z n002 -?i .iinsi dt? 
suite jusqu'a 9^99 5i vou.s i?n avez la 
pailence. Apr&s 9999. on repart a 
OnO[) NoT<?2 bien que Ie calcul pa^fi 
dc 0009 a 0010 puis OOll. ct^' 0.019 
^ 0020 puis 0021... 

Lisiinti 4 



D3O0- 




00, 




ii«oa 


O302- 


as 




sm 


♦0? 


0304- 










030i4- 


p& 








0307- 


1 a 




ct_c 




0309- 


A5 




LDA 




asoA- 


69 


01 


ADC 


moi 


D30C- 


B5 


Q6 


STA 




□ 3DF- 


AS 


□ 7 


LDA 




0310- 


69 


00 


AOC 


IrtOO 


0312- 


65 


07 


STft 


♦07 


03J4- 


08 




CLO 






20 




JSK 




0318- 


A5 


0<S 


LDA 




031f*- 




0*^ FD 


JSR 


•FDD^ 


031D- 




8E-FP 


j$a 


•FoaE 






I B 








4C 






^^Q6 



Le mode DCB pKUl ains] btrivn lu^Lt- 

ment a t^re un.;a*Schag.e simple d .un 

eftWif de tcs ajiither. tn ce qiiT 
conceme les additions Ig processGur 
pk^ut iTi^rnf v(Hi!^ re:seTvt?r d agreables 
suri^ri^i's Ri.T'ipl.icez par exfmple !■ 
00 de J adrt'i^j^y ^i-.^Ol par OF el relan- 
cez la routine, vous vcrre^ flppaidf- 
tre: 
]5I6 
1517 

Le processeuT a rorrii;^ rout seiil 
votre erreur et convert! voire tOF en 
15 DCB! 

Li.-'s ^r-husir^inon^. en rpuanche, n nf- 
Ireni pr^s l^^j T^TTH-^s qtiranties. Trana- 
joirrniTiK fKJlrr protEi^immo d'addition 
til pjtjymmme dtr sousiracHon en 
remplagant CLC IISI par SEC m) 
ct les dcuK ADC (.69) par des SBC 
(E9). Sj Von ammence par LDA 
#00. tout se passe bien et \e ealcul 
dofirie : 
9999 
9998 
9997 

Si 1 oi] toninit^nti.' par LDA I'^^OF. 

par contre, on obtient; 

OFOE 



OFOD 
QFOC 

Le processeur ua calcuter ^nsi tai 
hexadecimat |usqu'^ qye i.e 
contpmj de I'octet revierwic IsiS 
chiffre^ decimaux fon a par exemple 
OFOZ OFOl - OFOO ' n£9^ - QE^m 
Le resultat d'eci^embie n'esi done 
pas. f^rticiiti^iement c<jk6re*il_.. 

Oirttrc Its pitLdulioTi^s d'emploi qu'il 
r^cfeme, le DCB presentt^ i:n inrnn- 
vGnLi?nt au niveau de \a .■ -.ninia- 
tion cii ni^iiiiji['t^ Df u^ ^ rit'i^ per- 
meriL^ni 6e coder [es nombres 
lusqu a h5.S35 (^FFFFl Gn hi'xadccL 
liicil. iridic |uMiu"ci 4999 ^t^iik'niem en 
DCB.. Uuelle que soit la vait^ur 
mai^irnaJe que I on .desire tt:^prtsen- 
tct. il fd^dm logOiJrs prfus d'ocieis 
pour te FeJre en DCB c^'en hexafte- 
cimat, 

Citons idpidtiiTieni d '^nitres petits 
problemes relaliis au DCB l elimina- 
tion dys^ combinaiEons de bits illicires 

ci\-s\i':^ Jt'^ Ji_-Ldl'.iijf^ o\i des rotations, 
la Lli^p,in[;un '.U: If, iiotion de "bil (je 

FMidk'JMtni, iGui celti nsz Ifiii pas de 
la noiation DCB an s^.'sl^me n^^i^^i^'^"- 
lierement sympattiiquc. Uou^ pouvez 
Tutiiiser sansgi^iid nsque pour Taffi- 
cha^ direct en decimal des re^lf^t^ 

de calculs ^mples, mars au deih prix- 
deiice 

La pile : suite et fin 

Depuij> k' Pi^m s 12. nous avons sou- 

ven! piirlp d<' U pilo du mjcioproce^- 

^tur. bdn^ renirer dcin^' W deiatl 
son organisation car cela n ^lait pas 
nccessaire pour la tnanipulation des 
itistti^oTis presentees a cette occa- 
siffit- U nt^' sufflsait de savoir qije 

i"on peut depose ^uelque chc>5@ i 

qu^ te pjoc^ss^Ur J u^itsait ^g&lenient 
pour memon'ser Tadressc de rclour 
apres UTT JSR. Nous avons vu plus 
hdul le role qu ^.^lli? jijut: fii outre 
drills mecanisirn^s do brt-jk (?! 

d'initjju[jlLui!:? En eltf juuifiit 

souvenl la soluiion de bien dej> pro- 
blems? do proyranimaljoti dt"? loii: 
K^ua i'un ^IL plus precisenxeni 
comment e\\e fonctionne ct nous, 
allons dtJBG^ fairs plus ampte connais 
jiante dvec die. 

La pile e^ une zone de '^t'lrkayf" 
de 256 ortt>ts qui se trniiw eii mp- 
moiTf hju\ iidtEf:i^e3 $100 (256) a 
SlFP (511) c e5l la pagt' 1 la 
[fn^^ifritfir^ RAM l Apple Premiers 
lemarciUe : la pile se situe done dans 
UiW EOEte- m^moire qui vous est tout 

de PAp^esoft. ou des adresses 
CCHUme $6 dtl $7 tjue nous avons 
souuent [JtilHees ponr nii*; r^nlint^s 
Coi^f.eijLieiio.' ne POKE/ i/iiivii^ 
quelqu^ thosf L^ntre 25ib el 51 1 sans 
mesurev prerisemi^nl ,h T^u^nc^ les 
risques de cetle entreprise. .. 



Pour g^rer sa xopc de stockage. le 
.^02 dlSp^ d'uit pointeur (bapfi^ 
Si. qiA au contraire de la pile elte- 
.mfime. est un reqistre imerne au 

ni^nii? htje que I'accumubtenr ou Ig 
Compleur Ofdinal. pai exemple Ce 
pomieur correspond a un octet, pent 
done varier a 255 ($0 a $FF) et 
indiqne touiours la premiers? position 
libr^ dans Id pilt c tr^l-a-dirt^ son 
aomtni^t Particulante du sommer il 
s eleue vers le ba& cai id pile st ri^Eii- 
plit de ladresse ilFF vers I adresse 
ilOO et non I'inverse. Lorsque la jhW. 
est lotolemeat wde. k po^aisu* de 
pile S .(jiphfi^t SEF -eH le premie 
o<!tGt emj:^}^ sera S Tadrcssc 
"$100 -h valeur de S soil $IFF. 
Apres cet empilage , S contient ^^Ft 
et la procliaine vakur a empiler le 
seta a ladresse $1FF. Clltiqut^ lui& 
que Ion empile un nctei. h diminoe 
de 1 el chaque fois que I'on depile 
un oclel, ^ augmenie de 1 
11 n exisie pas d instructions pour ma- 
nipuier direct e me nt ce poinii^ur de 
pile (du type LDS ou STS). mai^ on 
tueut neanmoins le faire par Viftter- 
mediaire du rG^&tre X .grSce aux ins- 
tructtons - 

• TSX (BA) : co-pie le contenii du 
pQlnteuf dt^ pile ddjia X sdiib chaEi- 
qet la valeur de b 

• TXS (9A) copie le conienu de X 
dans le poiiiieur de pile 

et )>ile 

Une in.'^irucLioi^ JSR suivie 
ladresse de la >ou.ST0UUne cnncer- 
nee occupe loujours A oriels {p.ar 
oxemplo. JSR $Bl = 20 00 Bl et 
JSR iFDED = 20 ED FD). Auant 
dexecuter une instruction, le proces- 
^sevir <alcu]e Fadresse de Finstruction 

syivante eit la range ^ms te coatpteut 

ortfirtaL C'ad'ness? ap.. I'ihstnjrfion qyl 
suii un JSR est ^pm- "ndr^age ati, 
JSR * y el eile correspond a I'en- 

droit OLi I on doil levenir ^ipres le de- 
roulcment d unt^ iou^ rouMno ler- 
minani par RTS 

Cette adresse de retniir esr dfp'^si^e 
au solnmet de b pite. rnai^s olU cor- 
respond en fall a I adrtisse reelle di- 
rnintice de 1 (soit sdrr^sse Hm hJSR -F 
Sj, cat 1" execution de RTS auamente 
d& 1 le compieur drt^n^ (le proces- 
sGur prend lt?s deux octets du som- 
met de Ja pile pour les mcttre dans le 
compieur ordinal augmente ce de- 
nier de 1 et pasf;e en.<;uTte f\ I'JnsJni-c- 
tion don( I L'kdre:i^-f kii ^st doiinee poc 
la nouvelle valeur du compteur). 

Nous allons voir comment cette inte- 
raclion entr^ JSR b pile esi ijirIt&i?G 
par les cartes d'interface pour deter- 
miner le sloi dans lequel elles se 
trnnvpni t^I 5avoir ainsi quelle^ adres- 
its de travail leur SQnl reserviaes par 
I'Apple 

Prenon^ t ^'.\--'nLple d'un controleur 
de disquette DOS 3,3j dqnt le listing 



56 



Pom s n" 15 



a-dessous reprodylt m court &m&\t 
dG k RQM, NbWbleTj' que r,3A^5e 
de d^rt $^^^'1 pctjvUrnt du fait 

a Lie (e Eontroteur se- trouve dans If 

ROMs de Tinterfact^ soni coiiL^ues dt^ 
tellt^ Eacor Qii'cllL's puiii^senl roiiction- 
ner quel qu*' -soil If ^lot diin^: Ifijuel 
on \es lustaWe el. It tor-[ir6lt*ui ei<jit 
dans sloE 5. par example, on trou- 
uerail <?x£^t:t(?ment la meme chose a 
psriir Tadresse $C52L 



- 20 so FF 

C62'^- BA 

Ca25- BD DO 01 

C62S- OA 

Cle.?9- GA 

Ca2A- OA 

C^20 OA 

AA 

C62F- aO 3E CO 

CA32- BP SP .1^. 

ci35- SO ca 

d^se- pD e? ci. 

C«30- >iS i?So 

C^SE^- SD SO CO 



J5R *FF59 

TSX 

LOA SOlOOtX 

ASL 

5TA *2H 

TAX 

LOA $CQ9E,X 

■Lfi#( •coac.x 

LQ'fit «C08A,X 

LDA »C09o,X 

LDY #*30 

LCiA icoao.x 



" $C62I- l>dre^ $FF5S. situce- 
dans Ici ROM du mOT^eun conttenl. 

tjg riristiUcfifm RTS Un JSR SfTSS 
nous ramcne done im.inediatement a 
la jsuile du JSR mats, t^nirf -temps. 
Tadresse de letoui diminii^^' 1 a 
^td deposce iiu sommet de Is pile, 
dans I nrdre octel haul octet bas. 
En J occur^nct^ on rivrjii done 23" 
au ^ommct de b piU^ cf Cb tin 
d^^J^JOus i^trirei^e de reioui = iCb24. 
soit jC623 apr^^ d^dnrfion de 1) 
avant Ic RTS df T.-^dresse $FF&?. Le 
RT3 tj^e ctvnt' adfe^' dam le 
cditiptGitf ordina] et augrBenle le 

Cfautte. te detix nrtpt^ dn Pommel 

do la pile ^07il [Qiijours les mem^s 
Lf reglstre S poinrc sur la position 
oil <e trouvi? "C6 ' pour indiqupv rju^? 
c e&l la prcrnidrc position libve. mcii^i 
i] y <j i^ncore pour I'tnstani £i refte 
position '"C6" g1 ""23"' a la position 
superiGuro. 

- ^C624 ; on iransKre la vaieur du 
pointeur de tAle dans reoisii^ X 

par TSX. 

- $C625 I' Instruction "LDA 
ItlUOX' permel de charger larrn- 
mulot^r avec Ig contcnu de b prc- 
f^m ^tioit Hbie de la pile {sans 
ftkStiBer pgjinteur de pile. bl*?n *iilr) 

Ttwi r&;up^c airisi ''C6*" dans I'ac- 
cuiiitilalt^ur. 

- ■^C:628 a SC62B aprc^^ .[U.-jEre 
dycaJagt?^ a gauche (ASL} \c contenu 
dtr Icn-c umulaieur devii^nt "bO" 
(Jeit^ vakur sera ersuite Iransfprpr 
dans It' registre X cl penriettra 
dattedfcii dux ddresses teservfies a 
une carte d'inteffeee jfccge <tenf4 W 
slot 6 

Le travail effechiS por cette rpytine 



^at VC>ti5 pataitre Inniilp pulsq^G 
ficnfe 5a\H^ dfefiuis le d^pm\ que la 
i_(B[te irouve dans le i-y <■[ il 
suffi^ail done de clidJi^t'r X rVvf-r 
^^bO pour oblenir le mcmt- resullat 
Mais It piuyrdmm^^ui qui a deve- 
loppe l(?^ rojiintds dc la Rf)M dw 
conlroleur ne pouvail iavoir dans 
quel slot vuLis dllii>^ le menre vou- 
lai: en outry que ce^i rmilini'^ (nnr- 
tionnent indepcndamment de ee- slot 
(si \;o\Jb utilisez le slot 5. le regisire X 
devra contenir #$50 au lieu dp 
#$60)._Etant donne que la ROM est 
ecrite "une fois pour touies" ei que 

Von nepeuf rerpplacer "LDX ^im" 

par "tDX #$S6" brsqu on l utilise, 
la solution cunbisit? done ^ t'mployet 
tin m^caniSTiic JSR - RTS ' pour 
aller lire ensuite la pilf: i^'t sovojr si 
Ton & eiivuy^ k JSR a partir d une 
^^t^ Ctran. CSnit C4nn ou aulm. 

Pour delaillei pm [.l i- sy^- 
l^"rtl<?, vous trouvciijj: m iip:if^ l;i [j^te 
fell le compit'-rendu d't^xecEilion 
d une petite rouiini* i]iili->^nl le in^me 

principe cT ptrmellc^rii: de vorifi(;r 

tyiitreiement le contenu de la pile, 
Llstintf 6 



0300- ft2 EO 

□ 302- 9ei 

0503- 20 5S FF 

Q3Q6- B^i 

O307- 3£. Od 

030y- BD 00 01 

030C- 85 0? 

030E- CA 
030F- 01 

031 4^ 40 

3 1 <S- W 

0317- 00 

Q3ia- 00 

0319- 00 

031A- 00 

0319- 00 

03iC 00 

031D- 00 

03 IE- DO 
*3006 

0319- A^OS y=4 



LUX 

TXS 
JSR 
TSX 
STX 
LDA 
STA 
DEX 
LDA 
StA 
LDX 
TXS 
BRK 



«FF5a 
*0100 ,X 
•0 1 , X 

H«4a 



standard Trf^ple. 

On troiave alnsi aux adresses $6 a 

%H 

- EO Ic poinlijur de pile esT bien 
iirvenu a valeur iriiale ^^pr^^ 
le K IS de l adresse ^-FFfiS 

' CI3 ' octet haul de I adre5:-c de rt 
tour du JSR 

- f)5: octet bas de Jadre-^^f? dp. rp- 
lour du JSR, ^irninuQ de 1, 

En llsanr le conrenu de la pile entfe 
ies adresses $1D8-S1E7. on peu; ve- 
rifier U presence de "03" a Tadre^ 
$1E0 [S ^ $EQ). cje "ts^" a 

ce qui 

consBtiiait bfen te Sbmmel do la pile 

a^dsil RTSj 

Manipulation du pointeui de pile 

Nous en avons vu un example ci- 
dessus (initialisation a i$$EO ou h 
#$40). 

En chanQeart la valeur du points 
de pile, on tnodifie reildroU «^ fioftt 
empjles les octets parl^ suite. etToh 
TTiodifie eqalement les valeiirs lues 
lorsque le processeur depiie quelquG 
chose Cela esc vrai iju'il s (iLjj^se de 
depiler dans I accumiiiaieiir pc^r PLA. 
pj^T pxfmplt, ou quil li'riyissc de 
1 adresse de retour d'gii J^R, 

La louiiiie suivante utilise la manipu- 
lation du pointeur de pile poui reali- 
ser Tequivatent d"un POP on lantjayc 
nicicliine. L'exeiiiple clujisi n a 
qu une uDleur denionsEcalive car le 
Trait-eiTient effer)ue iH" neceE^e^itc nulle- 
iiiuit pdiulii; Lompiicdiion. 

LiBting 7 



BRK 


03OO- 


ZO 




FC 


JSP 


*FC3S 


BRK 


030 3- 


A? 


Cl 




LDA 


tit CI 


ERf. 


030 5- 


20 


OC 


03 


J^P 


*O30C 


BRK 


030 9- 


2D 


FO 


FD 


JSP 


tFDFO 


BRK 


030S- 


60 






RTS 




BRK 


030C- 


29 


7F 




^0 


H»7F 


BRK 


oaoE- 








TSX 






030F- 








INK 






031O- 


es 






It^ 




Y=D8 P=30 


S=3C 0311- 








T?^S 






0315- 


4C 


09 


05 


JMP 





00 06- EO 
0008- 05 
♦ 1 DB, 1 E7 



■03 



OiDS- 6f BE QD OD 30 30 31 05 
OlEQ- 03 30 00 DO 00 00 00 OA' 

On initialise le pointeur de pile a 
#$E0. on execute le JSR $FF58 puis 
on recup^re la valtiur de S et on la 

slocke en py, Qn fit ensuite la pm- 

mtSre pomtion JjWe et on stdclie 
en $7. Eti d^LT^Taeritant X (la pile sg 

remplit vers fe has), on lit ensuite 
I octet qui ^e Ifouvi? "au dcssu^ ' de 
la p:eiriitrrt? pa'%iEiQn libre et on le 
range en i8 Pu^;^ on initialise S a 
■^$40, afm de preserver les valeuri^ 
que nrjus avons uuus-jueiiies t^inpi- 
lees ten d aulres lermes. on remonie 
le sommet de la pile loin do rondroit 
que nous avpns manlpulel. et on 



La routinfl effectue un HOME puis 
afiiche lin ;A m icwsde FU^H. La 
partie qol nfnjs contSeme SO 
dans ^ S^iK^roiifine ctebutent cn 
S30C. " 

ut\ tnet te Wt 7 de I accumutateur a 
pour modifier le Code-ecran auqud 
II correspond et on augmente ensuite 
le pointeur de ptie de 2 (TSX - INX - 
(NX - TXS), Par eette operation, on 
deplace le sonnutfi de U\ pi3e "en- 
dessous de l adrei^se de relour du 
JSR i030C Le !aii de ryvenir ators 
de la routine pai un JMP ^(J^^Uy 
pertuibe pas le deroulement du pro- 
gramme car. ayant fait "sauler" une 
adresse de retour. il n'y a pas reelle- 
ment plus de J5R que di? RTS 

Annulez mainienant la manipulation 
du poiniteur de pile en tapant, en 



I 



I 
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30E: EA EA EA EA 
ce qui TGmplace les mstruaions pre- 
cedentes par des NO.P, Ft^jani:^ 1a 
roufine^ vous vijnez cette.icfc s-^ifB- 
cher deux A en FLASH au tteu d'iin. 
En voici r explication : 

- Au JSR 503tx:, I'adrcsse S307 est 

- Comme il n'v p.is 'I.? RTS can-'- l:i 
rontinp %'^{)C ei qup. \ on rt'v/ip.nl p^r 
JMP $30S. I'adresse $307 con^tue 
toiMOurs le SOpmet de ta piie, 

- £^ fotrtiR^ debutant en iHff^ 
Icrminc par un RTS. Le processGUr 
r^cup^ie le sommet de la pile, soit 
$30A apres le JSR SFDFO. et I utilise 
cornmc base de Tadresse dc rctour: 
on revient en $30B. 

- En $30B. on trouw un RTS Le 
processGur roprend t^ncore Ic som 
met de la pile et "lombe ct^iie fol5 
sur $307 qui y est jemanle lovsque 
$30A B cic depile. On revient de ce 
fail en $308, ce qui provoque I'affi- 
chage d un dGuxiGme caractcre a 
c6td du premier. La mccanisme des 
RTS ^ fga ms^te. normalement 
pulsqii'il ti'y a tAis tfadressG estce- 
dcntair-e dans la ptle. 

Gestion d« tables 

Supposojis que vous tiyez plusieuia 
tables d octets a gerer a I inleheuv 
d un programme, lelles par ijxemple 
des tables conit^ntint codes des 
caraderes de messages a dffichE?r ^[ 
I'gfdrart^ Malhcureuscment. vous nc 
pas *5xactemen1 tombien de 



ces tables vous seront necessaires. ni 
d quels eiiJiullb elleb se tiouvenjjit 
dans Ig programme Commi? Eou- 
jours, plusieuvs solutions sont e'nvis^a- 
geables pour resoudr*? les pioblemes 
de programmation que pose cette si- 
tuation. Lune d'elie consisie 1^ en- 
core a utiliser let pile, comftie U ir^- 
tre le pro^raniTne sufvant, que nous 
allons an^yser, 

Lj^te 4 - elle coarespond au:t codes 
du iriesSE^ MESSAGE 1, 

SUlOis tftin 00 p6ur marquer la 
fin. 

Ut^ne 5 : codes ecran de MESS 2, 

suivi'; dt- Ofl 

L affichsge se lera a chaque Eois p(iv 
un JSR SO place avant les codes 
composant le message 
Lignes S a 12 on li^ansl^ie poin- 
teur de pile dans X pour lire les d(?ux 
octets du sommet de \z pile, c'est-a- 
dire I'adre^se de retour du JSR SO 
dimiriuet' de 1. On prend pour 
adresses de base $101 et $102 
Bcu de $100 ^ $101, puisque S 
pointe vers la prerriiere position libre. 
et done vers I'oclet qui se Irouue au 
di.^s^us de I'adjesse qui nous int^- 
vasse. On s!ocke cellc adresse en $6- 
$7 pour qLi'(?lle puisse nou^ servir 
ensuiie d adri^sse de bdse dans un 
md^xaqe indirect par Y. 
— Lignt? 13 . gn initiiiliL^f Y a [. pour 
tenir comj^ii^? oll f,"^it que r*-"iLiiv^sf 
plflcee en $ti47 correspond pas 
exactement ^ I'adresse du debut de 
notre latHe de codes a afficher, mais 



a cette adresse diminuee di ]. 

— Liytic^i 14 a 16 incremenlalioTi 
de I adri?sse r^tour siluee au som- 
met de la pilk? II ^'agil en effet de ne 
pas revenir de notre routine SO a 
J adresse qui suit JSR SO [debut de 
Ja table), mais a Tadresse qui suit le 
00 mavquant la fin des codes, 

— Lilies. _l 7 et 18: lecture d'un 
cod«' cbm la t&bh. Si c'est 00. on 
p^^m e« vSi qui fait .affidter un RE- 
TURN {JSR= $PC52) et nous amen? 
en fin de routine (RTS) Tadress^ 
d^ relour ^ bicn ete augmentee a 
I'inteneur meme de la pile, on doit 
alors reprendre le progranirne princi- 
p<il a L'inMrucGon qui suit 1^ tabte des 
codes. 

— Lignes 19 a 21 affichage du ca- 
ractere (JSR $FDFO) ei passage du 
suivaniTlNV'BNESg.)' 

Avec un rel sysieme. Tajout de nou- 
veaux messag<?s en cour? de d&vc 
iopptfiiit^Ml du prayramme ne pose 
guere de problemes. 11 ^ffit d'inserer 
a I'endroit voulu dans le programme- 
source un "JSR SO" SUM m^- 
sage a afficher. sans se (ipr^ocrfiipgr 
de i^adresse ^ laquclle comrnencera 
la table des codes des caract^res A 
Tissue de Tassemblage .final. 

Rempfaons cjonc fqm ensemble 
Tbietcy Le Tattec qui* ptiT te feais ^ 
I'une ^ m .^nfributions. nous a 
dofifi^ fiS&ff dte cette methode pour 
illustrer lc3 Wenfalts de la gesfion de 
pile. 



i 



0300 
0300 
0303 
0306 
0309 
030C 
030P 
0310 
031 3 
03 1 i 
0319 
03IA 
031B 
031C 
031F 
0321 
0324 
0326 
0328 
032B 
032D 
□ 330 
0332 
OSS^J 
0337 
0338 
033A 
033D 



2Q58FC 
201B03 
CDC5D3 
D3C1C7 
CSAOBi 
00 

201803 

CDC5D3 

D3A0B2 

00 

60 

BA 

BDOl 01 

S506 

BD0201 

S507 

AO 01 

FEOI 01 

D003 

FE0201 

B106 

F006 

20F0Ft) 

cs 

DOEE 

2t)i2FC 
60 



1 
2 
3 
4 



5 



7 
8 
9 
10 
11 
12 
13 
1^ 
15 
1 6 
17 
18 
19 
20 
21 
22 
-23 



SO 



S3 



S2 



SI 



ORG *300 
JSR *FC58 
JSR SO 

HEX CDCSD3D3C1C7C5A0B100 



JSR SO 

HEX CDC5D3D3AOB200 



RTS 

TSX 

LDrt *10I ,X 
ST A «6 
LDA «102,X 
ST A «7 
LDY «1 
INC *1Q1 ,X 
BNE S2 
INC *102,X 

mk SI 

JSR SFDFO 
INY 

BNB S3 
JSR «FC62 
RTS 



SOURCE LISA 1.5 



Recapitulation 



0300- 


20 


53 


FC 


20 


I B 


03 


CD 


C5 


0303- 


D3 


D3 


CI 


C7 


C5 


AO 


Bl 


00 


0310- 


20 


IB 


03 


CD 


C5 


D3 


D3 


AO 


0313- 


B2 


00 


60 


Bi^ 


BD 


01 


01 


85 


0320- 


06 


so 


0^ 


01 


85 


or ^0 


01 


0323- 


FE 


01 


01 


DO 


03 


FE 


02 


01 


Q330- 


SI 


06 


FO 


06 


20 


FO 


FD 


CS 


t)^3#- 


DO 




2d 


i&Z 


FC 


611 
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HPGRAPH 

Nicolas Montsdtrat 



HPGRAPH est un ensemble tie pro- 
cedures t?t Hi' fnnrtioni Pascal pt'r 
mcttant de simuler une paitu: df; 
puissartes mstructionb (jrciphiqu^-^ lii: 
Hewlett- P^rkard HP ^S4:":i C\'^ in 
tnjctions 5e retrouvenl egaleineni sui 
micros HP. HP 85 et 87. Elles 

INTRINSIC UNIT Pdsc^il I] faui done 
]a fdacer dans la SYSTEM. LIBRARY 
pour potllTJir rutifiser 

Tout programmt- ulijisant les proce- 
dures HPGRAPH doit coniiritJncCT 
commesiift:: 

PROGRAM 

(*$S-I-*^ {*option Swapping*) 
UStS rURTLEGRAPHlCfi, 
TRANSCEND. HPGRAPH;. 

Voi/ons maintenant les instructions 

D^biition da format de 
r^cran 

SCALE (XMIN,XMAX.YMIN, 
YMAX:REAU 

Cette procedure definii les borne^: de 
1 ecran le pc^iiiL pldCL' tin bas a gau- 
che a pour coordonn^es (XMIN. 
YMIN) et le point situt- cn htiut 
droite (XMAX, YMAX). Tout I'toan 
est utiiis^; i] y a done un certain apia- 
-tisserfient des figures. SCALE est fi5<^ 
psr <*tfiHtf a I'fichtrilK reelie de 
recfan. -sOIt SCALE (U. 279, 0, 191), 

SHOW (XMIN,XMAX,YMIN, 
YMAX :REAL). 

Cen« procedure d^finit un cane dans 
lequel spront trar^ les dessins, Pat 
exemple, si Ton fail un SHOW 
(-3.14 .3.14, -1. I), la zone dans 
laquelle les dessins ?ie>ront tracp^ tora 
(-S.l^l, 3 I'l -3 14. 3 141 C.-[[e 
instruction e^i ui[W pour obit^nir. par 
exemple dps tracer rte Cd'rcks qui ne 
soioril pas ovalcs. c est-a-dire 
compresses L'ccran utiiisable, en 
coordonnees rep]|p<i pst done {0 
191, 0. 191), 

UMIT (XMIN.XMAKYMIN. 
YMAX :REAL). 

Ceiie procedure est rcquivaWnt HP 
de I'instruction VIEWPORT du TUR- 
TLEGRAPHICS, mais ici les coor- 
donn^es sont dans le format specific 
par SCALE. Par defaul, LIMIT esi 
fixe aux m&mes v^ie'ijrs que bC.AL.K 

Instructions AXES et 
FRAMES 

niAME" ^ une 'itiSMietioH sahfl^ pa- 
lani^trt^^ qui permet de metfre un 
cadre autour de I'ecran. 



AXES (XTICYTIC.XINTER. 
YINTER :REAL), 

Commfi stwi nam l'ih<&^^ c^tte.fnfl' 
trucdon pennet de tmi:&ir elea Siji^ 
sur I'toan. Les axes se t^serit ati 
point (XINTER, YINTER) et sor^t gra- 
ducs avec urie graduation toLis le^ 
XTiC sur I'axe (x'x) el une tous les 
YTIC sur ]'axe ly y). Cf?tt(? proci^diire 
bert notamment lors du kac^ de 
courbes 

Instructions de trace 

PEN (COLOR :SCREENCOLOR). 

Cette instruflinn permef de choisir 
une couleui parmi les couleurs du 
Pascal. Exemple PEN (GREEN]. 
Par diSlaut, la roiilmir rhoisie «st 1^ 
WWFE. 
PENUP 

Ccttc procedure, comme son nom 
riitdtque, iSOe b piume. c"est-a-dire 
que les procliiilnes SrUrutlions 
CMOVE, CDRAW. PLOT. RPLOT et 
IPLOT sfflront juste un deplacemeni, 
Sans troee; 

PDIR (ALPHA :REAL). 

Cette procedure est I" une des plus 

tuiE^ntes du Basic graphiquc HP. 
He realise une rotation . des axes de 
fSff^ ALPHAu suivant le sms trigo- 
"jlometnque. ALPHA est enprimd en 
radians, el peiit €tre n^tif. Touies 
les inatructions. de tmce sont r^alis^ 
dans le repere specifie par SCALE cl 
PDIR PD3RfOJ. !a vdeur par detaui 
correspond a un repere onlioi^onal 
classiquc On trouvera un fxt^mpk' 
d uiihsdtjor de cene Insiruciion dans 
le programme ROSE disponibl€ sur 
la disquette d'accompagnemGnt. 

PLOT (X.Y :REAL: 
MODE: INTEGER); 

Cette instruction realise un deplacc 
merit uu un trace jusqu au point de 

coordonnees (X Y|. te MpDE est 
un pciramcEre ob&ssant aiiH tegfi^. 
injivantes: s'il est pair, la plume 
"d^end" (PENDOWN) et une ligne 
sera engcndree S'il gsI Kmp.ilr, la 
plume "[nuiilt? ' (PENUP) el ur de- 
pJacement sera effectue Si MODE 
est positif. la plume changcra d't^tai 
apjrei* Texecuilon du PLOT, sinon 
avant son execution Par exemple. 
MODE - 1 rOaiis<? soit un [race SQit 
uTi depiacement seion I'^tat anl^rleur 
die la plume, puis haisse la plurrip. (Ip 
iffbGhain PUOT sera done un traGe). 
MODE = 2 ^ Mte = ^lu« 
un 6©C6 OU m cI6pJ®fflTieitt; fiUfe 
ISve la ptdrttG (le procftalrt PLOT 
syra un deplacemt^nt) MODE = -2 
leve la plume puis effectue le depla- 



cement. MODE - - I baisse la 
plume et effectue le trace. 
CHOVE (X;Y tmi&) 

Conrespond a Tinstruction MOVE 
HP, qui n'a pas pu etre transcrile 
sous \e meme nom puisqu'une pro- 
cedure MOVE pxisie cleja dans le 
TURTLFGRAPHirS Flip r^^lisp 
l equivalent d un PLOT(X, Y, 2). 
CDRAW «V fREAL) 

Correspond a I instruction DRAW 
HP, Elte realise I'equivalent d'un 

PLOTJX, Y -]) 

IPLOT ai.\ :REAL; 

Cette procedur<? effectui.' un deplacc 
uiujil uu un Irdte. ^uivdiu Jt: MODE, 
en coordonnees relatives les coor- 
donnees d origin e sont les coordon 
neei du dernier PLOT CDRAW. 
CMUVt OU RPLOT. Exemplc : trace 
d'un carre do centre (0^tj) et de c6lc 
de longueur 60 : 
SCALE {-60. 60. -60. 601: 
CMOVE ( --30. -30): 
IPLOTt60, 0, -I); IPLOTfO. 60. 
-I): lPLOTI-60. 0. -11: IFLOTIO. 
-60. --1): 

RPLOT (X.Y REAL: 
MODE:INTEG£R). 

Cette instnjr.tinn esf ^gMlpnterfr Utw 
des in^(ruetiOns clefs du Ba&ic grapbl- 
que Hp. Elle realise un n^ac^ ou un 
deplacemen! relalif mais contraire- 
ment ^ IPLOT. le point arigine ne 
varie pas apr^s Ee RPLOT Ce point 
Qrigine est 3a derniere pcsiiinn d-p l;i 
plume apres une instrucbon PLOT. 
CDRAW. CMOVE, FRAME, AXE5 
OU IPl OT f p MOOF oheit aiix 
r^es habituellcs, Un exemple trace 
d'un carre de centre {0,0) et de c6i^ 
de kwgueur 6fl [dans.le repere defini 
pat SCALE); 

SCALE (-50. 50. -50, 50): 
CMnVF(n 0]- 

RPLOT [ 30, 30, 2): 
RPLOT(30. -30, -1), RPLOT(30. 
:^G. -1) RPf.OTf-.^n 30 ^1): 
RPLOT ( 30. :^0. 1); 

Conclusion 

L'unite graphique HPGRAPH est for- 
m^e de procedures ai^emeni 
compr^hensibles. permetiant de tra- 
duire fodt^ent en Pascal des pro- 
grammes graphiques d'orlgine HPt lis 

permettent egalement d'ecrira 
m^fm- fadlement toys, les pro^am- 
mes nic^t^t Aes fbrmatag^ 
<^S€*m *ff .^:ratafi*>m d'axcs. 11 est 

msitheureuseriient assez lent, par rap- 
pori aux intructions Basic d'HP ^en- 
viron une fois et demi plus lent que 
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<^ur \e HP 8fi pour \p. trace de la manquent, commc GRID [c^ir^idril- que (DIGITIZE), dp ssijvpgprfip juir 
ROSE) li seratt tTes bcile d'ajoiiter lage 6e I'ocTEjn). les instructions de disqiie d'ecrans grophlques (GLOAD 
quelques Instruciions HP qui Itii Siil'^it' ^luit'mdfique sur I'ecr^n q?viphi e'lG'^TORE^ ■ 



Ptogra^^e HPGRAPH 



IWraJ^^ie CODE 14 brtTA ITI 



U5e5 TUOT 

phqceoure: 
procedure 
procedure 
procedure 
procedure 
procedure 
pwuceoure 

procedure 
procedure 
procedure 
procedure 



PEMUPl 

PEN 

PDll* 

CMO^fE 

CDPAU 

PLOT 

flPLDT 

ITLOT 

LIMIT 

SCM_E 

SHOU 

AMES 



TJ^5,TfWiMSCBdDr 



C^LOA iSCREENCOLORM 
(f^LPHH ]REAL3 I 

t X , / ! SEAL < I 

(X,T|REALiPlODE MNTEQER) | 
tJt t TlBEHLiPIUOE : I'^TtljtPt ; 

(S(WlN,XrlAX,¥MIN,TTW< iREAL^l 

<XHIIN,>7tfOE,WIN>VHaX iREAL>| 
(lfTlC,V^IE,XJ«TER,YlWTeH iHe*»t.Jt 



UAR COSAL,SlNftL,CUffK,CUFJY. 

I HCQLaS iSCBEENCDLDRj 

LXM I M , LXTWt , 
LrMIN.LYMlWf jI^TEGEPt 

FUHtTiOH l«EftL/ tlP^TEGERl 

FX 1- «DUNDU«'^PKi-t»<> 
END] 

FLWCTIW fflr'CY iRE^J t iMTESERl 

FY BOmO < ry^PYJ J 

END] 

PROCEDURE FRfSiME; 
<MR OX. or ilNTEGEPl 
BEOJN 

OX I- TUHTLEXiOY TUFfrLEY | 

riO^^ET0tL«MlW>l.VMlr** sPENCOLOR<NCHeJ t 
^fOiJETOl Ok 

pirocEou«e PBim^i 

PEND0U4 AtCSE 

END] 

PROCEDURS FOlflf 

CDSflt. I* COStALPHA>E 

PROCEDURE PEN , 
SECCM 

MC^DLOfl s-COLOa: 
PWWOJN 1- TRUE 

PROCEDURE CH(K>E) 
BEGIN . . 

pENi;oLO»nttewe>}HtWeT0tFX(x> * i 

PMDCCDURE CDftAUi 
-BED I IN 

CU«X CU*?Y I- Vj 

PEr^COLOR'MCOLOff > (PWGTOf P)f J ,Fy<Yll 
END; 

PRE3CEDURE PLOTt 
CASE MODE OF 

IF PENDOU*J-FALSE twEN CMOUE'>C,Yi| 

- B^f 
S.OrBEGlrl 



IP PCWW*1+-FA1-3E TMEM CM0USO<,V>t 

cDRp«,(;*x,Y?iPe4eOi*i t- r^uSE 

END; 
-2 eBEDJN 

pswTCU« J- FALSE i(>ieuetx-,y> 

-I tfiFiSI'* 

END 
ENDS 

pffoceotwe Rpt^m 

L«R OCUHKrErGURYpXC^Rr.YCAWI :flBlL( 
SEOlM 

OCURJt 1- CURXjOCURV :-CUf*Y; 
XCrtfiT I- CUflx • X-C03*»L - VnSlMfrLl 
YCABT I?UR¥ - x-G[r*AL » ¥*CdSftUl 

PL0Tt«O*flr ,YCART,riC10E3 l 
qiiim r* OCiJPKjCURY 1- OCURV 



PROCEDURE IPLOT: 

W*fl XCdRTtYCAflT jHEALi 

BEGIN 

XCflRT CURX » X-COSAL 
YC^aRT !■ CURT • K^SlNftL 
PL,ffTtXCART,YCAFn',MaDE) 



PWOCC&UffE tlHtr* 

i- FXKKWiHifLYHlW I- FV<Y>fllH> j 
y I EUPO^TT (U^IN, LJ<MP« * L VWIH , LYWVC ? 

PPOCEDUffE SCALE 3 

py >^lNip¥ :- YMIN; 

OX 270' r XMflX-'^JN^ : 
or I- ^^«x-^M[fJ^ ; 

I rni T ^ >!niN , xpi*^ , TH 1 N , ywx J 

END- 1 

PROCEDURE 3M0U ; 
8EG1N 

IF rrilNixniN THEN JtfllN J- TfllPf 

ELSE YHAX i- WfrX ; 
PX I- xifiniPY YMlNi 
DX iy|/-<XfWW<-XIT|rJJ ;DY DX | 

PROCCDunC 4XESt 

PENCOLQfllNONEJ ; MOUETO< , ROUHDt FV ( V [ MTERJ J ) J 
PEfJCOLDR'MCOLa'W) ;HCFviETa(279,TURTL£Y) i 
PENCDLDR^fJONE ^nQyETDf BOlJ^D.(F)£<itlNTE»l J . 0* I 
PENCOLORlHCOLDfl- jMrjJETOtTLffTUfiX, r^l J 1 
fOK I 1 TQ ^ DO BEL^IN 

PftS I- BOWDtXTlC»OXH 

If W TMeM PA& a- " 

REPEAT 

PENCOLORt NONES jf^O*-^?™*?? 1 
PENCOLOR* HCOLORl iMdiySrr(l'tX,Y*2> | 
X !■ ]< t Pfl« 
UUTIL NCIT<X W C(3.,,3!WT1 
END: 

FOR T s- ! TO 3 DO 9EG;n 

IF 1'2 THEN PflS - P'^Si 
T I*- R0UNI>tWYlWT1H*Hl 
X I- R0lJNO<PXfXTNrlftV) J 
PEP6*T 

PENCOLORl rttULU«J inOUET0£X-3,Y> J 
Y I- T + PAS 
UNTIL NffTCT IH tO-A^H^ 
CNO 
EN&i 

BEjTM 

F>QT l» (□ J : 

PEN<unlT£>i 

PENUPi 
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Eciiture en page haute resolution 

Erick Ringot 



Introduction 

La possibilite ^-o^ TApple II d'uti- 
liser cies pages gti(^l&|u*fS sur 28Q X 
192 points est tt^s souvcnt niiSe A 
cnnlrihi ition pour uisualiser, de fagon 
synthctique, des r&uHats num^rlques 
OL auires sous forme de graphes^ te- 
seaux. dlagramniGs, etc.... 

Malhexiimisem^t, 9 fCejds/^ pas 
d' instruction Applesoft pcrmetent 
d'^cnre dans les pages graphiques, et 

d^apporter simplvmerit dc5 commen- 
taire^. titres, valeurs, sur nos travaux. 
HAIFA IPom 5 5) el D05 TOOL KIT 
(Apple:} son? dps ufilltc^iffS peimettanl 
d ecnre page graphique, grace a 
de5 POKES, mais au pnx d'une tabu- 
hnnn dp \\,'pe TEXT 
Le but de cet articte est de montrer 
comment ^crire des mots a T^cran. 
tout en profilant de la haute resolu- 
tion. 

Principe 

L'instrucnon DRAW dt? I Applesoft 
permel de dessiiiGi des formes contc- 
nues dan^ {<th\^. L*db former :iUlU 
defini(?s par [ utilisaTeur peuuent 
parfailcm(^nT represenler I'alphabet, 
les chiifies e\ caiaciert;^ tsp&:iciux. 

Eoire un mot revienE done ^ d^A- 
Twr, Tune denize rautre, f<alie& 

former 

Un^ LdWt A5C11,5ET (de 755 octets) 
i?5t proposSe ici. Elle contiGnt 63 
formes rcpr^scntant les 62 caractfires 
de codes ASCII 32 a 94, deflnis dans 
une matriCG ctesique de 5 x 7. i*h 
un can-d plein' dont rious verrona 

Tutilite uh&ieut^em. 

La solution en Basic 

M£thbd« 

une cliaiVie de caracl&res, conienue 
dans l3 variable CH$. a la ligne VS. 
a parOr de la colonne XS La metho- 
dologie est la suivanle : 
1 NS = longueur de CH$ 

2. Pour (S allanl de 1 a NS 

3. AJ - caractSrc No IS 

4 GS - code ASCII 6e M 
Jg. 3S = CS-31 
jb; EHaepr UR canr^ en XS -YS 
7- E*^er la forme No SS en XS 
- YS 

8. Incrementer XS et IS 

9. Si IS <- NS, rutourner en 3 

Snts-programme Applesoft 



• Cttt : chatne 6 Scrlre 
» YS i ligne d' eoiturc 

• }^ ; IdcG colonne 

Lea^ variables loci^ sont: 

• IS ■ indice du caract&re 

• A$ : car^ictere courant 

• CS : code ASCII 

• SS : forme courante 
En sorfie; XS est rmocfifi^. 

Dan^ It' i:iaragrapht> Riiivant, nous 
con dense rons cette routine. 

Utilisation du soua-pTogriininuE 

Cie inipui*? quetques servitude^ : 

• chargcmcnt de la lable de formes 
ASCII, SET a line adres.se choisie; 

• predser ceUe adresse au syst^me; 

• prcciser . ECHELLE = 1 , ROTA- 
TION ^ 0; 

• piDtectU^ de la table et de la 

Plusit'Urs "cartes d'occupotion la 
RAM sonl possibles, selon la laiUe du 
programme Basic &t la page graphi- 

que utilise^:. 

Si AD esi I adrcsse de chargement de 
la table, alors AH% = (AD / 256) 
m-'^ = (AD - 256 * AH%) ^ 
gnent resKCtivement les adresscs 
Rautfi et basse, et il faiit pr^cis^ : 
POKE 232,AL^ : POKE 2a3,AH%. 

Si r&n irtiBse une autre table de 
form^ ces.deax Instrtidft^ di^w^ 
^ Ffex^Cfft^ h chaque festfttete en 
pageHGrt 

H faut done completer nbtre routine, 
et nous en profitons pour en donncr 
un£ version cpmpacte -. 



1 AD=- PEEK <t15) + PEEK 4 

25di IF PEEK CAD} = 63 Tffil I 

m 

2 AO = AD - 755 

3 PRINT CHRI (4)-SL(HD ASCII .SET 

iitWi Kim: AO; SffTD INS 

99 REH --flOirriNE m MSIC- 

m miS^ ITDNS 

120 Af = Hin <cM,is,ih mmn 

ACTIEH 

mtiS' m (Ai>; Km cwl 

MB SS = CS - 31 : Rffl N[«PO SWPE 
150 HCDLOI^ a: DIUU ^AT XS,rS: KEH 
EFFACE 

m tKflLON 3i DBAU SS AT X8,¥Ss m 

mn 

m XS = XS 4 4s R« DE«tME 



m HEXTTS 

m RETum 

199 RBI INE LIWE- 

200 8Mt&" It mre Or Pfire 232,fli;f 
! POKE 222fm: FOfi IS = 1 TO 
LH (CM)! HCOLHlB ti mH3 
AT XSpYS; HCAffN 3i DRW ASC 

<MIM <CW,IS,1))-^3I ATXS, 
TSiXS = ICS Ul NEXT fREnilM 

999 RBI»AIOe.PPAL» 

1000 IfiB 

Atecs POIIE 232,AC(t POKE WM 

% 

im RCOIOINS 

1021 VTtf 31: - 958; INPUT ' 

cmiNt 'icwi if mi >"jm 
mn HiWE 'ftSi UMT m 

OWE -;X5t fiOSIfi 308: GOTO 102 





La solution en lansage 
machine 

Le pnncipe reste le m^me. 
Le programme est articule autour de 
la routine DRAW, a Fadresse ROM 
$F601, qui dessine une forme conte- 
lUie dans la zone me moire dont 
TadressG haute est vers^c dans le re- 
gls(re Y et Tadresse bgi^ dcU^.Le ^ 
^stre X, ie paramiffie 6k fdtation 
(z^To) 6tant conlenu dans Taccumu- 
lateur, 

L'utilisation de cette routine necessite 
done connaitrc 1 adrcsse de cha 
cune des funnes. 

Stnictme des tables de formes 

Le calcul 1 adresse absolue de la 
l^rtne numero b s'op^re de la ia^oj} 

• set SHAPE l adrasse de d^ufr<te 

• i$tt i^erse cette adressc en page 
zero dans deux ortets ronspriitife 
aux adresse^ TABLE et TABLE i 1 

• on verse dans Taccumulateur le 
num^To I dp h formp a dessmer 
L'adresse relative de cette forme 
GS! conienue dans les octets 
"SHAPE ^ 2}' el "SHAPR + 2i 
+ 1'^ (que i'on atteini par adres- 

sage Indtrect indexe). On obOent 
Fadresse absolue en ajoutam cette 
Eidresse relative A fadi^sse 
SHAPE. 



Le progrtmine HGRECR.LIB 

apr^s. Le code objet donnc daiis la. 
recapitulation, relogeable. ini^gre la 
table ASCII.SET. calle-ci suivanl la 
roudne d^^ciiLure piupiiiintjii ditt: 
(longu-ede I6S octets). 

— Llgnes 4S-59 necessaires au cd- 
cul de I'adresse de la table, puisque 
le programme est rclogeablc Ce der 
iu*;i tonsiillK Id pile: du niiLiuproctJj' 
scur pour connaitre sa propre 
adresse F.n ajoutani la longueur de 
la routiiit?. on oblit?iil Tddrtriae dt: Id 
table siluee a sa suite. Cette adresse 
ost versco (?n TABLE =$CE el 
TABLE+I = $CF, generaiement 
Wbres. 

— Ltgnes 63-66 : on emplle T^cheUe 
?t la couLeur en rours, aftri d« les 

— Lignes 72-83 : on saiat dans le 
texte du Basic ie nom de la variable 
alphanumSrique a lecrire, Lg nombre 
d6 caract^^ efit portS: «n LONCH, 
Vadresse de la c^iaTnc en ADRCH (ct 
ADRCH-^1) 

— Lignes 87-92 hgne^ 90-97 . sdsie 
des coordonnees du premier carac- 
E^re, looter que >^ occupy 2 octets 
{P?»l fit idY Mn.s^^l. 

— Ligne 104 : Y scrt de compteur de 
caract^res. 

— Lignes 106-109 'i l& caract^l^ ccJu- 
rant est empl!^, 

Lignes- 113-1 19 . efface avant 
d'ecnre, en dessinanl un carre [form"^ 
ni.im?to 63) de couieur noire. 

— Lignes 124-129: on r^cupere le 
code ASCII du caractdre sur la pile 
on calcule le num^ro de fpnne cor- 
respbndant en dSdutscuit #$1F (soil 

31), puis on la d^s^ne. 

— Lignes 133-138. le decalaq<> du 
caract^re suivant sobdenl en mere- 
m^ntant Tabsds^ X de la quantity 



#TRANS. id fixfie i 6. 

- Lignes 142-146: on r^cup^re le 
/ijjmSro du caractSre sur la ^e, oft 
nfiCf^fri^tte et on v^i^e .<^d1^ 
a^^tl^fement ete ecrite ou riOTt 

- Lisnea 1M-Iij5 : uli resfitue cou- 
ieur et ^chelle en caws. Fin d£ rou- 
tine. 

- Lignes 159-162 . modificaton 
dasaque du potnteur de pile dans les 
pfo^mtnes relogeables. 

Lignes 164-173 . calcul de 
Tadresse absolue de la lorme a dessi- 
n^r. cette adresse est ftmpil&e pmvi- 
soiremenl. 

- Lignes 17S-17S: po5itionnemen( 

du curseur h I'ecran 

- Lignes 179-184 ; dessine la forme. 

- Lignes 18&-18? : fin de proce- 
dure 

- Lignes 189-190: c'est l assem- 
bleur qui calcule pour nous la lon- 
yutfui dt; Id routine.,, ^ympti ! 

Remarques 

HGRECR.LIB ne modifie ni recholle, 
ni la couieur en coujs dans le pro- 
gramme Basic II est compatible avec 
une autre !abl<^ de fonnes puisqu il 
n'utiiise pab Ie5 ddre^bes $L6-$E9 

Utilt&ation 

(1) Clidiyer, si^luri Id [dille du pro- 
gramme Basic er la page HGR utili- 
ses, la routine HGRECR.LIB en md- 
muire (adrt^^se AD), 

(2) Prot^ger page graphlque et rou- 
tine par LOMEM et/ou HIMEM 

13)-Syriiaxe : 

CALL AD, CH$, H. V 

la uirgule sert dc s^parateur entre 

chaque para metre. 

CHS = variable alphanumenque 

conlenant la cbaine a <?crirp 

W — C(:>lonn*^ du premier caractere. 

V --^ hyne d'pcnTure 

(H CI V soni des expressions numeri- 

qu^) 



(4) Limitations ; 

• CH$ pra doll contenir que des ca- 
ractercs dont le code ASCII est 
compiis entre 32 et 94 (pas de co- 
ract^res de cpntr^e notamment) 

• n nV ^ vedftcati^ de la 
longueur du mot : Attention \ 

(5) Possibillt^s : 

On peul changer la police de carac- 
t^rcs [utiliser des niinusculcs, des al- 
E^abcts ^trang^s ou sp^ciaux). U 
suffit pouT cela de remplacer la fa^e^ 
existante par unc autre ^ la suite 
programme. La forme numfenj 63 
doit ^h"e un carr^ plein. 
Voir HGRECR DEM pour un exem- 
pli^ d'applicdtion, 



Etude comparative 

Occupation memolre 

X^a lignc Ba&ic condense© n"occup6 

que 96 oclets, a ^urTipci[t^! ou^ 168 
octets de la routirse en Janga^^e ma- 
chine TouTefois, on n'a ps^ pris en 
compte ies vanabl^^ ciu/dlidre^ que 

Vlte«se d^ex^cutlon 

Le test oonsUtwt a W 1000 

premiers n<:»nbT«3 ^ f aMe xJes d@ux 

procedes donne : 

BASIC - 1 minute 14 secondes 

MACHINE : 53 secondes 

ce qui esi eloquent. 

Comparalson atudlttflve 

BASIC ; 

• tieni en unc ligne 

• modifleks parameires HGR 

• nficessitG w indice de boude et 
des transfeils de cha^e 

MACHINE 

• synlaxc condense 

• pas TTibdificafcn de-s uariaWcs 
Basic 

• esth^tique du programme 

• utilUarton pn^^ciihlp dj^n-; iinfl hihli-O- 

ihegue geree par 1 ampersand (&) 



Programme de demonstration 



to PEM 



HGRECR-peM-Z 



13 m PEEK C115) * 256 * PEEK t 

20 IF PE^ Otti 1^ ^ PEEK <H 

H + 1) - 60 THEN 31) 



25 



30 



35 



HH - HH ^ mHEMs HMs PRIMT 

DATA "EXEHPLE -> GATTTT ' , * EXCMPL 
E -> Hl^lUUK^vnt- ^'EXEMPLE -> 
RESE#:*U' , ■ SYTsTFAyE iNSTRtJCT I ON" , 
■POLICE CARACTERES" ^'DEMO-Al/TO 
■,'RETOUR BASIC" :NC ^ 6: DIM M 
tCNOi FOR I = TO NCi READ M 
» < 1 > : NEXT 

DATA "TERRASSEnErfTS- ,"FDNO«riON 
S*,'flES^LW , "MURS EXTERIEURS" 

, -ei-<jis«ir^ ,"plancher" , ■ cower 

fOl^ ,-FljHi^RIE" ,-MENUJSERlE 



62 
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S-,*EN0UITS'"4-PE^NTURES-= DIM 
FDR T - TO 10: READ 
G»CI ) ! NEXT 

40 DATA 10 ,30 ,30 ,£iD ,,£0 ,80 , ion , I SO 
, I 70 ^200 , 50 , 1 00 , 00 , 140 ,40 , 120, 
140,60,80,150; FOR 1 = 1 TO 1 
: READ Xtl>: MEXT : FOR I = 1 TO 
10: READ YCl) : NEXT 

43 DATA -PARIS" , -MARSEILLE" , " LYOW 
."BORDEAUX" , -LILLE" , "TOULOUSE" 
^■STRASSOURG" RENTES" , -ORLQSW 
S-i-LB^S-^'LE PUY"! FOR I - 1 TO 

tffi R©ib i»tr>5 N&rr 

60 GOTO ibOOO 

yy5 REM ^ EXEMPLE 

1000 HCOLOR= 1 

1005 FOR 1 = TO 10 

1010Y=10»(1 t 1) 

1015 CALL HM,G*( I > , 10 ,Y 

1020 XI ^ 100 * 15 f I RND CI) « 

10:X2 = 200 * mo CI) » 79 
1D25 FOR J = - 3 TO 3: HPLOT XI , J 

+ Y TO X2,J t Y: NEXT 
1030 NEXT 

1035 A* ^ "LW EXAMPLE D'EMPLOl ="! CALL 

HM,A«,51] ,130 
1040 A» = ■ DlA6RAWE-a*nT 't FOR 
r - 10 TO 170 §tte> -i= CALL Wi, 
«»,! ,150! NEXT 
1045 RETUF^ 

REM SYbTTAXe 

2&D0 A* = ■5r^f^AXE OE L' instructicw 
■: CALL 1-M.AS, 100,201 HPL0T 90 
,30 TO 230 ,30 

2003 A» = -CALL AORjCWjC^L" r CALL 

>#1,A*,50,5fl 
2DI.0 A« " 'ADR » ADRESSE DE cmm 
DE LA ROUriNE-A CALL htl, 

AA,lD,10a 
2015 A* = "A* = VARIABLE ALPHAI^U 

MERIOUE A ECRIRE': CALL Hi, A*, 

10,110 

2020 A* = "C = CDLOM^E DU PREMI 

m CAmCTEIte-l CALL >ff1,A«/lO,l 

20 

2025 A* - -L - LICNE D'ECRITURE 

" ; CALL Hn,A«,iU|13D 
2030 RETURN 

2995 fl^l POLICE 

30O:o A* " -C^mCTTERES OrSPONXB 

LES i"t CAU- m,A«,i80,^i mL 

or ?0/3<l TO 250,30 

moM mm-Q^ 3: for i =i o to si hplot 

^ » I , TO 30 « I , 191 : NEXT s 
HPLOT 0,0 To 240,0: HPLOT 0,2 

TO 240, 20r HPLOT 0,191 TO 24 
0,191 

3010 A* - -CARACTERES DISPCrJlOLES"; 

FOR I - 1 TO LEN ^A*J:C* - MID* 
(A»,I,1): CALL l-H,C4,250,8 « i 

: NEXT 

3013 A* = "NO- - i f^OR I = TO 33 CALL 
HM,A*,ie + iO • X.,10i WECT nft* 
* " t^fi jPOB I =< to 3i, GALL 

2020 FOB I - 1 TO ^2 

30M N* = STR» C I ) !A» = CHR> < I + 

31>:Q:>: =(!-!)/ 4:r:^ = <: * 

1 :> - 4 • ay.tx = \o ^ 6<i *■ py.iY 

30 t 10 » ov: 

3030 CALL Mn,N»,X,Y; CALL m,A»,X * 

30, Y 
3035 NEXT 
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3040 RETURN 

3y?3 REM — HrSTOGRAMIE— 

4000 HC0LOR= 3: HPLOT 10,10 TO 10, 
150 TO 360 , 1 50 

4010 FOR I = TO ItT/: = ISO - RND 
CI J » 140!Y* = STR» (150 - 
>iXl = 10 + 50 ■ I :X2 XI + S 

0! HPLOT XI, 150 TO XI.Y:^ TO X2 
.TA TO X2,l50r Ml^L MN.Vs^SO » 
I 4- 20, - 5 

4015 STA = i\ +1): FOR L = Y'y^ TO 1 
50 STEP STTAiZ'A = NOT ZX : FOR 
C = XI • STC TO XZ - Z'A * 

SJy. STEP SIX * 1: HPLCir C,Li NEXT 
I NEXT 1 NEXT 

4020 AS^'HI STOORAMME's CALL 
l^,A«,30,1^0 

4700 RETURN 

4995 REM — RESBW — 

5000 HCOLCH^^ 3 

3O05 FOR Jt 1 TO IOe FOR J = I "TO 

to 

5010 R = RND U>t IF R < .3 fiHO R > 
.2 THEN NPLtJt X<r>,YfI> TO X< 

J) , Y C J) 
5020 NEXT ; NFXT 

SO30 FOR I - I TO 10; CALL m,R*CJt 

J tX( n ,Y( 1 > S NtXT 
5040 A«=-RESEAU"t CALL m,A« 

p 1 BO , 1 
5100 RETURN 
5995 REM —DEMO-AUTO— 
6000 B 1 

6005 H6R I POKE - 16302,0: ON B SOSUB 
1000,4000 ,5000,2000 ,3nOD 

6010 FOR I - 1 TO 1000; IF PEEK < 
KJ > 127 THEN RETURN 

6011 NEXT 

6015 B^B*1; IFB>5 THEN B » 1 

60?0 GOTO AOflfi 

9^97 REM rtENU ,PPAL^— 

lOOOO TEXT ! N0RT1AL : HGTIE sS = - 
163!36)KS » - J636aiK =- - 163 
84 

10010 eOTt? tlOOD 

10020 I?OR I " i to 40 s PSJNT (> 
t^XT t RETURN 

10030 rwCT^e oc * peek cs) - peek 

fSl + PEEK CSy -r PEEK CS> 
10040 "^AB 10 ♦ It PRJKT rnCDa NORMAL 

: RETUW^ 

11 000 GOSUB 1 0020 ■ PRINT "DEWONSTR 
ATION ECRlTURES-s PRIhfT 'EN PA 
GE GRAPH! QUE HAUTE-RESOLUTI ON" 
: GOSUB 10020 
II 010 KrjAB 10 3 FOR I = TO NCi PRINT 

rt»(I>) NEXT 
11020 E s 

11030 Q0SU8 100301 POKE K3,Q i miT 
K,1283 POKE KS,0iA » PEEK CR) 
I 606UB 10040 

11040 IF A - 21 THEN T - I + 1 : IF 
( = NC + I THEN 1 =- 

1 1050 IF A = S THEN I ^ I - It IF 

I = - 1 THEN I = NC 

11 060 IF A < > 13 THEN 11030 

11070 HGR : POKE - 16302, Oi ON I + 

1 GOSUie 1000,4000,5000,21000,30 
00,6000^200111 GET A«T GOTO ID 
000 

12000 KOr« = TEXT ; QOO 
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SS FF 4fl 


CCt? M 1 




DPTHPKt 
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SOURCE FILE: HGRECR 












OOOO : 


1 


;E,RlNeOT L£ 2/6/84 


1 nfT^ ■ PA 


1 

M J 




OCX 




OQOO 1 


2 




10 6; '^A 

1 n n 7 ' ! R 


veil 




TX3 

n r 




nrroo r 


3 


;ECPJTUPE3 D£ CHAIMES 


1 n n 3 > 


J** 




Pf A 




OCOO i 


4 


;EN PfiQE HAUTE-RESDLLIT 


10 09:6'^ 


A6 55 






HLC^6 








1 CI R ■ R*i 










QOOO : 


5 


) 


1 nnn- Aft 


■J / 




PI ^ 




tXDQO : 






1 0^1 F ' A 9 






ADC 


#0 




E 




iai..D!S5 


CF 59 




STA 




aOOD ! 


7 


■ F .— — — — — — — 






1 












1012r 


61 


;<3'>'SAUVEGAfiI>E ENVIR 


QOOO : 


3 


* 


□NNEMENT HAUTE RESOLUTlW 


OQQfl : 


9 


jKOSE b'EMPLOI 


1012! 


6? 








OCOO i 


1 


i 


1012:A5 


E4 63 




LDA 


HCOLOR 


QDOG : 


1 1 


ISYNTAXE I CAiLL ADR, 


10 1 4:43 


64 




PHA 










101 5!A5 


F7 6^ 




LDA 


SCALE 


OCOO : 


12 




10l7j48 






PHA 




UUUU ; 


13 


lcH*=VARIAeLE ALPHANU 


1013: 


67 


i 








MEHTOUE 




1018: 


69 




ARBUMENTS 


OCOO ! 




:x ABSCisse 


lOiS; 


69 








OCOO I 


15 


;y QKOQNNEE 


1018: 


70 


:4/l/EKPRESSlDN A EDIT 


0000 t 


U 


■ 


ER 










Next t3SJeCT #I.UE NWie I'S HOReCR-dBJ 


!01S; 


71 


! 













1013120 


BE OE ?2 


JSR 






t7 




10^6:20 £3 W 73 




JSR 






jPOUR ASSEMBLASe fEULEMENT 












IDOO : 


18 




101 E;20 


6C OD tn 




JSR 


CHKSTR 


1 coo : 


\ 9 


; <1 >-RaUTlNES F*OM 


1021 rAO 


75 




LDY 


#0 


iCOO : 


20 




1023 :B1 


S3 76 




LDA 


cvarpnt; j 




21 


J-ARPNT EQU *33 


Y ; Lt>J6UEUR 










;POTNTF SLIR LA 1, flMGUEUP 


1025:35 


03 77 




STA 


LC^CH 




22 


CHKCOM EOU tOEBE 


1027: C8 


73 




■INY 






JVERIFIE PREoEhlCE VIRGULE 


102?IB1 


33 7? 




LDA 


WARPNTJ , 




23 


CHKSTR EaU «DDrtC 


Y sADRFSSF BASSE 






;^;ERJF1'£ la PRESENCE D' UNE CHAIN 


102A:35 


06 BO 




STA 


ADRCH 




E 




102C:CS 






JNY 




DFE31 


24 


PTRSET EQU *DFE3 




S3 &2 




Lp^ 


^UARPWTJ ^ 






y lADRESSE HAWE 








23 


EETINT EQU f^lOS 


102F!BS 


07 8a 




STA 


ADkCH+l 




iSMBlT UN 


ENTIER SUf? 2 OCf£r& 


1031 ! 


S4 


r 








26 


GTBVTC EQU *EiFS 


1031 : 


85 


;4^2MBSGISSE 




JSAISIT UN 


ENTIER SUR 1 OCTET 


1031 : 


36 


i 








27 


DRAW EQU SFAdl 


1031 : ?0 
1034:20 


6F S7 
OS El 83 




JSR 
JSR 


CMKCOM 
GET I NT 


r**l 1 3 


23 


Hpoas eau »f4u 


ID37:A5 


A1 &9 




LDA 


FACLO 








1039:95 


EO 90 




STA 


PKL 


29 


RETUfW EQU *FF53 


103B:A3 


AO 91 




LDA 


FACNQ 




ilNSTRUCTim RTS 


103D!35 


El 92 




STA 


PXH 


1 n ri n ■■ 

1 LI U U 3 


30 




103Fi 


92 


t 






1 nnn - 
( Pttia - 


3-1 
32 


j<2>-PAR^tf1ETRE$ 
t 


103F; 
I03F; 


94 
95 


J4/VDR0CINNEE 
■ 




33 


FAfMO FOLJ SAfl 


103F:20 


F5 Ed ?6 




JSR 


GTBYTC 


OOAl ! 


3^ 


FACLU bUU »A1 


1042:86 


E2 ?7 




Srx 


PY 


OOEC 1 


35 


PXL EQU «EP 


1044: 


99 








OOEJ : 


36 


PXH EQU *E3 


1044 i 


99 


i <5>-ECRlTURE DE LA CH 


0OE2: 


37 


PY EQU 


AINE 








OOCE: 


3B 


TABLE EQU *CE 


1044: 


100 


! 








jET «CF 




1044 :A9 


01 101 




LDA 


t4E 




3? 


MCOLOR EQU 




E7 102 




STA 


SCALE 




40 


SCALE EQU «E7 




jEGWELLE 










4t 


AORCH EQU «a<S 


J,048: 


103 


} 
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42 




10481 AO 


00 104 














tlER CARACTERE 








43 
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105 








0006! 


44 


TRANS EQU %6 


104Al?*8 


106 


WRITE 
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TTRANSLATI ON CURSEUR 




;EMPILAGE 








IOOOb 
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104Bi48 
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46 


f<3>-ADRE3SE TABLE DE 
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06 1 09 




LDA 
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lOOOl 


47 


J 
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1 
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Hi 
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lis 


1 




DO 


113 


LDA 
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3F 


U3 


LDA 
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1 1 6 


J5R 
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BVC 


DE5SIN 
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I 19 
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HCOLOR 
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I 
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124 








125 


SEC 
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126 


SBC 
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123 


J5R 


RETURN 
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130 


) 
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131 
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132 


V 






133 
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134 


LDA 






1 35 
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INC 


PXH 
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22 
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24 
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3A 


67 


3C 


oc 


6C 


BE 


2D 


IE 


1140- 
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DISK CHECK-UP 

Alexandre Avrane 



Mipi]>: vaut prpu^nir i:p.if? <]iii^rir. pa- 
rait-il. e{ que celui d enlre vou5 qui 
n a idimals k message 10 ERROR 
iipp^r-iiTrp s.iir iou ecian me jettG la 
premiere pieive... 

I-Gs disquetteS courantes sont (th^ori- 
quemenl) certifiees pouT une duree 
uiite d'une soixantame d he'urf s. 
Mak comme personny fi a courage 
de declencher un chroiiornttre a 
chaquf appe] DOS, il t:s[ bit?n djf- 
fink.' rTfn evaluer I'elat d'usufc, 

DOS 3.3. Postal, PrbDC^. CP^, 
MEM/DOS et aulres syslemes d'eji- 
ploitation 69 I'Apple reposant sur la 
PROM \6 secteurs et son standaid 
d-e formataqE? physiyue. II indique 
r^tat phy^tqut> d*^ vos disquettes. 
Mais, a la differcnct; des uTi]itaiii?s qui 
iournissenl la lisEt* des secieurs illisi- 
h]ps> even Quelle merit quelques me- 
thodes pour Ics r^^p^m -^ parHe* 
ce programme rfonne, a faiJanGe, 
UTiG Indication sur Tintc^t^ jAysS^u^ 
dc iros disqucttes et leur usure. En 
revanche, rintegnle logjque, en parti- 
cu]]&r les pc^nteurs utili^ par le sys- 
t^e d'expldtation poiir reficr le di- 
rectorv aux fich^ers, n'est bien 
pfitendi-i pas controlce. 

Fonctionnement du DOS 

U DOS del'ARiae est. un.<mimal pa- 
tient bien dt^s4 : |>our GaltnGr fe 
tendon nerveusc de son utilisati^ur, Il 
ne lui foumit le dramatique message 
d'1/0 ERROR qu'apres auoir vaine- 
ment tenle 9(j fois de lire le setleur 
d4?nv-i3ide Plus fxactemeni, il essaic 
d abnrd fois pMis, s'il iV^st pas en- 
core parvenu obttnir i:onectt?[]n^ri( 
le secteur, il recalihTf bras 6e lec- 
ture (r'v'<^l ie bruii ]h:.:\v\i Ir^^ d^- 
sayreable car souveni aqngiickieui 



de catastrophe] pour effectuer a nou- 

Contrdligs eft ^tues 

Le pruyrainme demande au DOS 
d'ob^0r\jer Tensemble de la dlsquetie 
et it'ldve, pour chaque secteur. le 
nombre de tentaHues Jrrfructiicus®, 
INormalement. ce npirftwe doit ^fre 
tres faible: Ss'alfieW-Cn hexadecimal 
(0, U .F), en mode normal pour la 
plage de valeur.^ I A IfS fn inverse 
pour 17 a 32. tii fl^i^h pour 33 a 48. 
Les vak'ut^ 1 i?[ 2 soni dtflchees par 
un Binipli? point { 1 aim d aerer 
I'ccran. Toul^? autrt? vakur affichcc 
eji jiiude iiyrrudl (dyne infeneure a 
16} n est pas inqutetante immediate' 
mc?nt En revanche, 51 le programrne 
aflsLlit^ (Jkjb ^ecieiU5 ^.Inverse ou en 

i^h. il devienl fje f^re ime 

c6t^ <fe^ la ^sqiietfe; Le progranime 
rie preotcUpe pas des valeurfi su- 
p^rieures a 4ti car ceiles-ci ont de- 
denche le r-ecalibrage du bras dc Icc 
lurt ft il e^t alors fonemenl 
tlt'con^L'ilk? d.v i'r)n(inuer a iitihser ta 
dL«,uuiJftij. Sl la tentative de lecture se 
buidt? prfr un echec complet, Usi "?" 
esi atticbe i^u flash 

ThGoriquetiK^nl. un ^ectou: , ■ 1 <>b 
lenu awt bucces apres lt?niacives 
en mouenne: en eliet. une piste 
contienl 16 secteurs et la tote de lec 
tuie pEUl ati Irouver a n'^mporte 
quelle pp^Don sur ^ pBte. N^n- 
molhs^ el afin d'att^drer le temps 
d'execulion. le programTne est mF- 
nut^ de mani^re a mmimiser le nom- 
bre de lectures, t^n ^crant Ic sccIcLir 
deriidnde selon la position de la t^te 
\in consequence, seul le secteur II de 
la pisle doil, theoriquement, pre- 
senter un nomtiie iion jietjlijjeable 
d acces 

Les valeurs obtenues sur les initrcs 
^^cteur^ de Id ph>te z^iq. et sUr 



au[rt?= pistes, doivent normalement 
elTG tres faihl^*.^: elles dependent non 
seulement de Tusure physique de la 
jcb^llette, ^galemenl de la 
de b^dUGticHl «ri^ numero de sec- 
teur logique f£ $&^iteur rf^jfflgAWJ 
(c'est un paramehe iht&Vne utths^ tors 
de riniMalisatinn rrLtm-; di'^quetle) 
Dans tous le& cas. ceb valtfurs doivent 
^ttre inferieur^s a 16 pour indiqu^r 
une quafirp rnrrpcle. 

Execution 

du programme 

Le proqramiriJ^ lauc<^ pai un sirn- 
pie BRUN DISK .CHECK--UP.M et 
charge en -$990. It n&cesSHe que le 
DOS 3.3 soxt charge en m^moire 
(^i/eflluellement sur la carte langage). 
l-'utilisaieur indique simplement les 
numeros de slot el de drive conte- 
nant la di^qnetle a verifier, puis le 
nombre de lentetives d^^ lecture pour 
chaque secteur s affiche Dans tous 
-:a5, RETURN valide la saisJe, 
ESC annule l operation en cours. 
Pour mieux apprecier Texecution diJ 
pro^jramme, ouvrez leg^remcnt;" ttf 
quelques instants la porte du kdiSur 
et obseivez le reSLdtatf 
Le fichi^^ BISK CHECK-UP3 
con^^l source en Big Mac Le 
ionctionnement interne du pro- 
gramme repose sur Texamen de 
j'adr^sse $57S (RETRYCNT) utilises 
par RWTS. 

Quelques derniers 
consells 

programme est destine 3 pr^etltr 
-les problcmes d'usuf^, \\ n'a mpilhpu- 
T^iK^ont pas la ferultl de savoir 
que vous poserez un electro-aimant a 
C6l^ de vos disquetle^ demain matin, 
ou quo cellos ci vont elre empnintees 
par voire petit dernier pour cons- 
trulre son chateau de canes... 
D'autre part, si vouei decidoz de 
^-oiiIiijIe^i. a Tdide de ce programme, 
l ensemble de volte biblioiheqjue, ne 
vous arretez pas apt^s avoir veiifie 
les quelqm^s disqu^tes Ifis ptus Ufllt- 
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s^es: si celles-ci ^taient reellemerit 
ii5?^ps. ii esf probable qu© vous aurilM 
(ifij^ eu des ennuis. L.es pi^t^gflie^ 
e^BTiic dis^t Murphy, ne survien- 
n^t^ie sur lf>^ Hiwjuett^B que vous 
ii'iiflto^ quasimeni jamais et bien 



sur, ap TTiometit ou vous en avez ra- 

Conclusion 

programme ne doit pa^ indLiire 
une impres^on seciinle qui seiai! 



illuEcdre: il d&tecte les. ennuts latents 
^'Mtement contre la rouille... 



Assembleur Big Mac 

I LST OFF 



2 
3 
4 

5 
6 
7 
B 
9 
10 
ii 
42 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 



» DISK CHECK-UP * 

* Copyright (CJ 1984 f^, AupAne 

» M.A.J. ! 14/07/84 

* CPftat iotii09/Da/84 



rifQuis par RWTS pour t ire 



A+t I chage des 
norma I ^1 <14 

prem i er cal i brage - 
Code ? et S *t iy'a 



r<5tJ I tats eri 

inverse sj >16 
s I rion J pour 1 9 



»rror . 



LOaPASE 



1 



2d 

27 

28 ESC 

29 BLANK 

3U 

31 BASL 

32 TRAP 

33 QCtajTS - 

34 D06 - 

35 RETRYCNT - 
3i SYMBOL » 
37 KF^^awOi: =» 
3S STROBE 

39" PRBL2 - 

40 BASCALC - 

41 HOME 

-12 UIAIT ^ 

43 COUTO 

44 SETVID 



45 
4A 
47 
48 



□ RG 



* Initialise 

49 START JSR 

50 JSf* 

51 Lr>K 
JSR 



*28 
«43 

«3D9 

«3EA 
*5?9 

*C6O0 

«cbiiD 

«F94A 

*FBC] 
EFl58 

*FDFO 
»FE93 
*90a 

■Format ecrao 



SETVID 
PRBi.2 



W PHOWCOMPOSmON fiV PmOMEMm /)£ W MlCRO-immilQUE 



i 




TRANiSMETTrZ-NOl S VOS TEXTES 
PAR TELEPHONE 
ou 

DONNEZ-NOUS VOTRE DISQ13ETTE 



O 




text^ ifQS ttrtictes^ q^lffim^ tmfitdrws m brochures 
saUii tiff Afnc softt t^uo^S Afiitt^smteni sar nttt^ phffH^eatrh 

Horn i/ous ei^itaits atitst, te caiti et k temps de fa soisie sappie- 
mtntaire que necessite te traiiewat tm^iticnnei dc (a phwc(tmp9- 

sitim atf^t fimeT€s.si9^ 4^ 4^tmH^tfj si vous (e i^^iirez nous pow 
OQa$ i^ta^miti^ tunv liSttr^ ^ fioipr^sion et 4u h&chn^e. 



NOTRE rMKENCE... UA ReVUE P6M'S 
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67 



53 


DVl I -2 


LDA 


nS6l ,X 


54 




SEGF 


Wi2 


55 




JSR 


COUTO 


56 




1N>C 




57 




6NE 


DVl 1 '2 


59 








59 
4Q 
6i 




» slot, dr i vo- , ^ 






« 


62 




LDX 


»8**80 


63 






GETKEY 


64 




6CS 


6QEXIT 


<i5 






pviz 1 


66 




rMH 




67 




DRA 




6B 








69 








70 








71 




AbL 




72 




Ad 




33 












Sm 


IuBSI-CJT 


75 








76 


fXJl 2' 1 


I nx 




77 


DV12'2 


JGR 


GETKEY 


78 


6DEX1T 


D J ' H ■ 


1 T 


79 




DbU 




SO 




CMP 




ai 




□Lb 


DVl 2 2 


82 




STA 




B3 




ORA 




84 






rrbSl/nl 


85 








^ 








B7 
88 


ft nil 








Itu 






STh 


I OBTRACK 


90 




O 1 H 


1 UdvUL 


91 








92 


« Douc T e 


sur 




93 
94 








0V2" J 


L U T 


tt*r r 


95 




^ 1 T 


U 1 1'^ 1 K 


^0 


DV20'2 


i inL 


C (~" T" n T n 

SECTPTR 


97 






at CT PTR 


98 




LrT 


n 1 o 


99 








lOQ 




1 PiA 

l-UR 


abjUIAUi- f T 


101 








102 




RDC 




103 








104 








105 




LL>H 


KEYBOARD 


I0<i 




BPL 


DU20 ' 3 


107 






HE5G 


1Q8 




BNfc 


DV20 3 


I D9 




3 1 H 


b [ KUofc 


1 10 




ca ^ j~i 


EX I T 


I 1 1 


eOSTART 


DtU 


o JhKT 


1 12 








113 


DU20'3 


1 


If J I OB 


114 




r 

L^T 




!1S 




JaK 




1 i6 




BCS 


DV31 -3 


117 




LDY 


RETRY(3W 


119 




DEY 




119 




LDA 


TBLWLUE,Y 


I 2D 


DV31-2 


LDY 


I OBTRACK 


121 




INY 




1 22 




I NY 




123 




StA 


CBASL) ,Y 


124 




BNE 


OV20^2 


125 









0-15 



126 


DU31 '3 








127 




LDA 






12$ 




LSft 










LSR 






130 




LSR 






1 31 




LSR 






1 32 




TAY 






: 33 




LDA 


TBLSTAT .Y 




134 




BNE 


DV31 "2 




1 35 










I 34 


DU3I 


^ 






1 37 




INC 


I OBTRACK 




1 38 




LDA 


I OBTRACK 




139 




CMP 


ttt23 




140 










I4t 










142 m Aot.p« 
























1 


1 1 




# 








LDX 


H30 






1 nnp^v T T 

L-LJUr^^l 1 


LDA 


MSG2-30 ,X 








BED 


LDOFX" D 




J 




STA 


SYMBDL-*80 




1 




IMX 










BNS 


LOOPED IT 




1 ^ 1 


1 nnov *■ n 


STA 


TRAP 




i 


1 nnpv ' \ 
LuUrA 1 


LDX 


**3S 








JSR 


GETKET 




I J** 




BCS 


BYE 




1 33 




8£Q 


GOSTART 




1 3o 


oTt 


m 


HOMe 








jMiP 


DOS 




1 5a 










1 

1 DT 

1 O 1 


* ba, 1 s 1 ^ 


touch? / curs^ur special 




STX 


SCREEN 1 




1 6^ 




STX 


SCREEN2 




1 X'^ 

1 O'J 




LDA 


' 




1 Ad 




BNE 


PUTKEY 




I 


1,1^ I Tl^ CV 

WH i j J^C I 


LDA 


SYMBOL 




J o o 






«-2 




lor 




EOR 


HI 




i AH 






SVrtBflL 










«-2 




4 ' W 






m6 




I r i 




JSR 


UATT 




f 7^ 




LM 


KEYBOARD 








BPL 


WAITKEY 




1 74 

1 i ~ 




STA 


STROBE 








PHA 










LDA 


ftBLANK 








STA 


SYMBOL -»80 








STA 


STROBE 




179 




PLA 






1 80 




cnp 


ttESC 




181 




BHQ 


CHeCKEY2 




182 




mp 






1^ 




BEGr 






194 




CPX 


MSO 




185 




BCC 


GETKEY 




I ad 




CMP 


«• I ' 




197 




ecc 


GETkEY 




183 




CMP 


W3" 




189 




BCS 


GETKEY 




190 




STA 


SYMeOL-*l 00 ,X 


\9\ 




AHD 


H^ooooi ;i 1 


1 t^^ru 7 


192 


CHECK EYl 


CLC 






193 




RT? 






194 










193 


















194 










197 


SECTPTR 


DFB 







198 


5ECTABL 


DFB 


0,SE,«D,«C,«Bp«A,9p8 
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199 

200 
201 
2^2 
203 
204 
205 
2Qi 
207 
20 3 

20 9 
210 

21 1 
212 
213 
214 
215 
2X6 
217 
218 
itt9 

221 
222 
223 
224 
225 
226 
227 
228 
22? 

23G 

23.1. 

232 
233 
234 
235 
234 
237 
233 
23? 

240 
241 
242 
243 



TBLUALUE = 



FLS ■FEDCBA9Q76543210- 
JNV -FEDCBA9S7^S432ia'' 











FLS 






mt 






DfB 


1 


loesLOT 






lOBDRIVE 


DFB 






DPB 





lOBTRACK 


DFB 





lOBSECTR 


DFB 







DA 


DCT 




DA 


42000 




DFB 


0,0 






1 


i OB STAT 




d 




OPS 







DFB 


6*%IQ 




DFB 


1 


OCT 


DFB 


□ ,1 




DA 


*D8EF 


Msei 




4- 




INU 


"DISK 




DFB 


CR ,CR 



L0UCA5E 

eopyrfgrirt t:c3 i.?94 



DO 
ASC 

ELS£ 

ASC ■ C0PYRIW4T CC3 l?84 

ALE)^DRE AURANE" 

FIM 

CR.CR 
LOUlCASe 

5iot;_'' 
" Dr I y 9 r " 



nSGSLOT 



DFB 
DO 
ASC 
ASC 
ASC 
ELSE 
ASC 

MSQSLdT ASC -6- 

ASC " 

FIN 

MSGDRrUE ASC '1" 



SLOTi 



244 
245 
246 

247 
24S 

249 
250 
231 
252 
253 
254 
255 
2^6 
237 
256 
2SP 
260 

262 

263 
264 
265 
266 

16.7 

269 
270 
271 
272 
273 
274 
275 
27i 
277 
278 
279 
230 
23 1 
292 
283 
264 
295 

2B7 
2SS 
2B9 



ASC ^' " 

DFB CR,CR 

IW " PISTE 11 

tuiuilll:iiliz22- 

OPB CR 

I " 01 2345*7S9ABCDEF0 1 
234367S9ftBCDEF0I2"' 

DFB CR 

IH^ "SO* 

DFB CR 

IW "El" 

DFB CR 

DFe CP 

DFB CR 

IW -E4" 

DfrB CR 

iNV "US" 

DFB CR 
INU 

CR 



MSe2 



CR 



S" 



CR 



OFB 

OFB 
iNV 
DFB 

DFB 

im 

DFB 

iNy ■ fi" 
DFB CR 



A" 



DFB 
tNU 
DFB 

DFB 
ENV 
DFB 



CR 



D" 



CR 



CR 







LOUCASE 



DO 
ASC 

ELSE 

ASC *;©jcaRe9" 

FIN 
DFB 



Rigcapitulatlon 







S'S FE 


20 


58 


FC 


A2 


0£ 






F5> 


BD 


65 


Oft 


FO 


□ 6 






-FO 


FD 


E3 


DO 


F3 




88 




20 




80 


15 


FO 


dE 


<^ 






SO dD 


A3 


OA 




fW 


OA 


0929- 


OA 


■0A- SD 


51 


OA 




1?7 


20. 






OP 


80 


70 


FO 


oc 




OS 




00 


F3 


30 


52 


OA 


& 






0^40- 


B2 


DA 




00 


3b 


54 


OA 


00 


o?4a- 


53 


OA 


m. 


FF 


Si: 


0,^ 


Oft 


■€H 




□ .4 


OA 


AC 


(»d 


&A 


CO 


iO 


GO 


953- 


-^1 


B7 


07 


OA 


BD 


55 


OA 


4? 




oe 


20 


CI 


FB 


AO 


00 


CO 


10 


0?fi3- 


UB 




9B 


DO 


07 


aD 


iO 


CO 


0970- 


FO 


32 


FO 


8C 


A9 


OA 


AO 


50 


0979- 


20 


D9 


n3 


BO 


10 




79 


05 




96 


BP 


1 7 


OA 


AC 


5-1 


OA 


CS 


□ 7aff- 


C3 


91 


38 


DO 


C2 




3D 


Oh 




'^A 


4A 






A8 


B9 


47 


OA 


0993- 


00 




EE 


54 




AD 


54 


OA 


9AQ- 


C9 


?3 


9n 


AA 


A2 


L ^ 


SO 


1 5 




oe 


FO 


0^ 


9D 


00 


06 


Ea 


DO 



09B0 - 




35 


■IS 


^2 


2o 


20 


C2 


09 


09BS- 


BO 


02 


FO 


86 


20 


58 


FC 


4C 


09C0- 


EA 


03 


9E 


CD 


a9 




D2 


09 


09C8- 


A9 


AO 


DO 


05 


AD 


30 


□ 6 


4^ 


09DG- 


01 


3D 


30 


06 


«9 


06 


20 


A8 


a?D3- 


FC 


AD 


00 


CO 


1 


EE 


30 


10 


09EO- 


CO 


48 


A9 


AO 


*D 


00 


OA 


m 


09E8- 


10 


CO 


68 


C9 


98 


FO 


I i 




09F0- 


8D 


FO 


1 1 


EO 


30 


90 


CB 




09Fa- 


61 


?0 


.C7 


C7 


Bd 


BO 


C3 


90 


OACtt.- 


tio 


05 


%9 


OF 


IB 


60 


oo 


QQ 




OE 


dK^ 


QiC 


OB 


OA 


09 


fife 




OAitr- 


"OA 


OS 


0^ 




02 


01 


OF 


A6 


6Aia- 


43 


44 


43 


42 


41 


7? 




?T 


'^20- 


76 


75 


74 


73 


72 


71 


70 


06 


0A28- 


□ 5 


04 


03 


02 


Ql 


39 


38 


37 


0A3O- 


36 


35 


34 


33 


32 


31 


30 


C6 


0A3S- 


C5 


C4 


C3 


C2 


CI 


S9 


se 


B7 


0A40- 


B6 


B5 


B4 


B3 


B2 


AE 


AE 


5F 


0A*18- 


50 


56 


5F 


7F 


5F 


5F 


3F 


53 


0»^50- 


01 


6U 


01 


00 


00 


00 


61 


OA 


0A59- 


DO 


20 


00 


00 


Ql 


00 


00 


601 


QAAO- 


t] ] 


00 


01 


EF 


D9 


0^ 


09 


13 


0^^i9- 


OB 


20 


03 


06 


05 


03 


OB 


2D 


OAFO- 


15 


10 




SD 


AO 


C3 


CP 


DO 



0A?3" 


D9 


D2 


C9 


C7 


ca 


D4 


AO 


DB 


DARn- 


c? 


DD 


AO 


BI 


69 


B8 


B'l 


AO 






Cl 


CC 


C5 


Da 


Cl 


CE 


C4 


0A?0 - 


D2 


C5 


AO 


Cl 


06 




Cl 


UE 


OAvy- 


C5 


SD 


30 


AO 


D3 


CC 


CF 


04 


OAAO- 


BA 


DF 


DF 


B6 


OF 


DF 


AH 


AO 


OAAS- 


AO 


AO 


C4 


D3 


C9 


Oi 


C5 


B(\ 


0A8O- 


DF 


DF 




DF 


DF 


3D 


SO 


20 


0A93- 


20 


1 


09 


13 


I 4 


03 


20 


20 


OACO- 


2U 


^0 


20 


20 


20 


20 


20 


20 


OAca- 


20 


31 


31 


31 


31 


31 


31 


31 


OADQ- 


■51 


31 


3 1 


31 


31 


31 


31 


31 




31 


32 


32 


02 


3D 


20 


20 


30 


DAEO- 


31 


32 


33 


34 


5!^ 


3^^ 


37 


38 


OAEB- 


39 


01 


02 


03 


04 


05 


06 


30 


OAFO- 


31 


32 


33 


34 


33 




37 


38 


OAFS- 


3? 


m 


oa 


03 




OS 




30 


oe&o- 


3:1 




ao. 


13 






05 


31 


0008^ 


90 


03 


32 


TO 


14 


33 


SD 


03 


OBIO- 


^4 


St? 




35 








30 




SO 


3? 


0ii 


20 


39 


.2a 


3^ 




so 


20 


01 


do 




02 


30 


20 


DB28- 


03 


BD 


20 


04 


S[> 


20 


05 


30 


OB30- 


20 


06 


00 


C3 


CE 


C3 


CF 


D.2 


aB3a- 


C5 


SF 


00 
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Tout ce que 
vous avez 
toiqours 

voulu savoir... 




Apple et GMS c'est mc rencontre, gcstion, la tcnuc des stods oule trai- simples et les e©mbinaisons inMm. 

Apple c'cst toute luie ganinio dordi- tcmcnt dc tcxtc, Enfiii il v a GMS, iine cquipe de pro- 

nateurs personnels poui- protession- Et puis il v a Maciiitn^li ct souiis. fes^ioiincLs qui voiis accueilleront et 

tt^- On clique Mir la soLiris, on appelle k vous conseilleront person neOement, 

L'Apple Ik et son jeunefe^jMfact progfamme; Tbut un m^tj est affl- Alors tout m que vous avez touiours 

rAppieTZcUs soattr&s sSrieuxpourla ch^ par symboles, les Pigments sont voulu savoir... 345,28,52. 



■NFORMATIQUE^M^ ll. 

liifennatique GItfS 2B-^MM«etaiiesml 75012 Parfe. Apple 
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Alexandre Avrane et Alexandre Duback 



Ha reputation de Pom s vient efli? de 
faire un s£iui quaiitilatif ' Loi pr^s^^ 
i\iKl^J-\\tUJu\]^x[\^u^^ d'.-:v3».'rii-L']]c hli^ ? 

cause principali.7. mai^ nou!; ijvnrih 

tembre une vinyiaini? dE.^ Iivr(?s nou- 
vaaux. portant pour tri plupart d'en- 

Wou& avons done du eifeciua' untr 
fielectiQii, autr^ otryi^ges ^tanl 
puremenl dl^s 5 la Rn de Id blbliiu- 

graphie 

Exp^ripncp^ d'lntplLigence Artifi- 
cicllc en Basic, do John Knitcfj, 

Edliion^ F.yrollt's 1 1^.' paci^s 

plus surpri^i'iniil dvoc I'lEilellujcnco: 

Aniii ■I'iii' ipr'.Jiionce;! "lA" pour (riirf 

divi'i'? it.' ^'i^/rifl, r i^'ft i.fiji^ pi-'rv,ijiTi-.' n v 
est indifEeren!: It-^ un-. v vou'ni I'lii-it- 
dp,s plaies d'Etjvpie, le^ auire^ y devi- 
rii?nT ]e point djp depart du futur age 
dor. 

Ce bvre lentc dcmythlfter ce sujei 

imm€*to€ment dans Us trawQux pro- 
tiques. en executant Di^^u^ ^-0^ 

norii f li' fTire. il Tie s'^gil pes d*etfe 
cxririint][. mais de demonirt^r qui! 
ri fsi p'ls n^tvs'i'.kiri:' rtf rjis.post*r C.I un 
Ml i.'inciteu ( ds; ^jRinde pui^stince el 
iTpriiiiKer Uil ^ritiycicje sp^cialis^ (fyp^ 
I I^E-^i pniir ."^hordi'i rht'm.' 

ihodcs d'evdiuciiion des prugi^mmes 
dp H^imt**; OTI d'erhPTS {inidi- 
ninx. olphQ-betci). resolution d'onato- 
:jii:s i Socraie e^i un luisnme: tOtiS 
\es. hommcB sont m,omls, done "1: 
^eneralGur ^ po^cs ideation ^ 
qudqucs akxandrins, ril^ilh&ureUSfe- 
mpnt ^niiwpnr Ttps syhiHirsl vnim d? 
"■"orn^in'.-i pohcii.T5 

!ivn^ it'rnhiTu' ccs expenenct*^; t'n 
('\pn'i;tnt li-i^ TiiPr^sTimmf'; du ri'li^hrc 
prog^iinrnt' IXH TOR fpt^ifois di((u.st- 

K?!! Fr^jiu t' so(js If nnin de f'REUD}, 
nti I nrdinaTi-iiir ^'iigi'ridii^ \t>^ qiir**;- 
Ivons- d'uu psychfinalisit* en fonction 
de5 reppTises precedents du patienf 

Les progr^ximes ineiua aom trcs 
stm<^tures. M rhartl^'m feciaier les 
mridifir;itinns }fesnnt ripstSn^ ^ I'firt- 
yiTif au Efi^ du TRS-Hft. m&fe unc 
annext? permet un*? tmduriiH ju <'u 

Applesoft n est Crf>peradr^Til rlniinn^iji' 

qu'ib n'oient pas ei^ Itaduits en fran- 

20 progiciels-outils pour I'Apple 

11. pjr ■k'<ii\ Loui^^ Marx & Alain Thi- 
bauli. Edihons du P.S.I - 248 p^igt?s 
122 FF. 



souriez pas-la richesse de sa bf- 

blioth^quc dii logiciol^ En eff^t. k* 
clii?]"iL p<"4i_']"iti^:l a souveiit la iZfciinie 

de chofi^ir un programme qui ne lui 
ctii-nviendriiii pas *'i. dt^vant If noni- 

l.irptf df pjui^lcii^l^ di^poniblos 5ur 

Apple el done la posi^ibililt^ 6e 
"tramper". il choisil parfois un r^ucrt? 
mateiiel ou 11 n'existe qu UP seul pro- 
gram its e . " sii n"v «n a qu^un. cest 
qii'il est bpn! ". 

Ce livre se propose d~ aider le futur 
acheteuT !\ relrouver parmi !a ga- 
la>:ie de progiciels diFiponibies sur 
A|j[^l^ Seuls le& produits diz grande 
diiiusion en France sotil abordes: 
[ t^-uX'Ci sont presenlGs en qualre fa- 
milies . 

I) le& tablcurs Visicalc el MuUiplrin, 
2] ks trailemi^nli di^ : Apple 

Wnk'j. Tf.>;lf. WordS- 

iflrMaiiMerge el Plumt II. 




3) les ^esiiOTinaiT^?^^ dt? lichtis Vi^^illEf . 
PFS File Rt>porl. Vtsidt-x. I/Oi^^^Misa- 
(t^ui, Oifiiib. OBo^f II fi CX Biise 
21") 

41 li^5 auCr^^s Factor, Appk'World. 
Ciriiphor. Visitrend^Vi&iplot 
PFS Ciraph et Typing Tutor. 
Oil [fmcJn]Uf duiii. dfc grands at?-- 
st^ni-i iDB .Mrs:!U"! Magic Windw. 

^;|c. I Ld*- ru'i.[Vv'fiu..^ pmduil^ (appa- 
rub di^fjui^ Ljij<.'L|Lii.''' dL-iuf 
Apple Woikb, hpi^iLi]L\.. ) manqueni 
<jgali?TTit3rtl [mais tosjl va viti? 
Chacjii dt;'i lo^^icids t:5l ^JVsilu^ df 
maui^re identiqut? sdon unt^ di^aine 
de criteres (documentation, perfor- 
Triain;fc! a l UnpiesiiBun, itunilt'. ^Il I 

xjMe.. le tecteuf doit, par la suiit. pon- 

derer selon rimportance qu*il I^t 

Cas rare dan^ ce It'pe de comparatif. 
la [:(>iiligLirati(jii iiiiiiimum uocL'Sfaire 
£] (.luiquL' [froiltiit esl |Ji(?(."Lbejnfi il de- 
lailL^' 'Cl' u^.ii .i toui de meme une 

d ulilise: dBaM.- II p,ii i.'\k'jn[j|t'l 
LerlaiTiemenI utile aUN ye^lioniiaiies 
desireux de choisIr rapidemfi'il un 



merits d'kne ^ffd par Vansiyse de 

qi.i4?!q'ii''^ pv'i.jiiii-, =iLppf|jm,'n'.^ir*"^ 

Applesoft Basic for the Appl^ 11 

& //e. par Loi^ Gmii & Lciny Joel 
(joldsiein, HJ. Brady Co, - 328 
pages - $20.75: 

Voici un excGllenl livr*? d imtiation a 
l AppleBOIt clatr, pr<^ds ^1 avec de 
numbieux | JM.iqriir un n.'^ t:M?rcii:es. 
Mais son pioblc^mt?. uous lavez de- 
vine, c'est la languy : I'anglals €St ra- 
rement 1^ favori dt-s d^buldnU Ht\ in- 
formal i que ly autre poll tt existe 
dcja de i}onnl>reux quvraigtrfi sktalai- 

Cependant E€ Bvre n'est pas sans in- 
t^rdl, mSme pour les ang]oph<:)bes. 
LdT It dppreiid tiU k't-li/u: ^.*.-r 

un ptobl(?me et a 5li"U(.Riivi Ici s'jIu- 
tion. au lieu de se precipiti?i di?vant 
It: ddviL^j pouj U;pvj qydqu^^s L<?niai- 
nes d\z lignes mal curnpn^^^:.. 
Parallelement. 1l*s inslructions du 
Basic Appli?5oft ex du DOS ^1 '5 boni 
eiudieesi malheureusement certainy?^. 
tdies que WAIT. FUMEM, POS el 
r&- &ont (veJontairemmt ?) ignprees, 
Une carte r^^rence plaslSfi^ est 
lointe 

P-Source, a guidi? to Uiti Apple 
Pascal System, par Randall Hytfe 
cb^ Reslon Publishing (Prerttlc^ 
Haft) - 4t>2 1^13^^ %24.m. 

D<5butanl5 & ab: tt'nir' Cl^ livre n'sEl 

pas un <^uide d'inilidLiori au PabLci! 
sur Appit?, mais sadresse au.\ pro 
grairimeurs sysl&mes desirant connai- 
ire leur machirie sur le buut leurs 
1,6 .dpigis. 

One execlleftte eonnaiseance du Pas- 
cal est tieceijidiie avdtit d'tn abordeF 
la lecture: en particulier. ce Ifvte 
commeTice pas son exploration la ou 
Lerniitienl le^j inanueb d Ajiple. 
mass bien au deia IX'S la prL'miete 
pat^L\ il par[ dOinth(?r I ."n I location me- 
mo irc dt' I iuit'rpii?Et^Lii p-Lude. puts 
*.^nchaine yailldrdement vi?ts une 
etude c!thno!o^que des vaiiables en 
Pascal. 

Apr^S iiu^i^ues cDnseite pour acc-ele- 
rer le^ programmes, ce manucl pro^ 
pose plusteuis uljli^ins 0n aSSem- 

bteur pour la mfee liU point des 

proc^dtircE. pius foumil uni^ ^tude 
d^tatll^e de chaquc inylruclioii na- 
chint' du p-Ci^dt? hnfin, las routines 

■Ar riiii..'i|i!^'iL-ur MHit do<:ort:qub>i-'^. ^\ 
•.\\\f':>][.- •- Il MLieres aslui.t^= >^:r \nn 
■JMM ri i.r ■ ■:■ iCi">^venl le lout. 
Cet L"";?^^ni^k' repi'i?St?nte, a ma 
toTinai^^auce. le luanuel le plus de- 
laille sui Ic jorKlionni?ment interne 
du Pascal, H est cerrain<?mGnl dom- 
uM*^ qu ll ipanqu*^ d appjo^he pe- 
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faire un M^gtr iJt^ p(?rfectionnement 3 
rUniversite de Sar D\eqo 

VlfilcaJc Applications i:^' Sr^nlt*^ 
Trost .traduit pai Jean-Pierre LoisoTi. 
i5he2 S^ex - 274 Pa^s - 1 4S FF. 

Enfin unt' iraducCinn hit^n faite. cela 
vdut le coup d'i?!rt^ souli^jne. tmt^ail 
efanf irnp souvj^iit t'pfi?clLie par Jj^i 
tflc herons mtil paves Ce livrt? 
s adresse aus unlisar^urs de Visicalc 
deja compptpnr^i p\ \^\ix ap|torle 

accprapa^n^s de listes permettanl de 

Clefs pour Visicalc. par Jean- 
Loui^ Maix el Alain TlliUdul*, HcJi- 
lions du FSI - lUl pag^ • lOCJ h>. 
Clefs pour Multipljiii, i^av^ J^an- 
touis Mabc Alam TfiTbault Edi- 
tfons du PSI - 127 Pages - 100 FF 

langue lran(;iii?^t\ dans lequs^]^ I'unli 
:?<ileur peul liuuvfi uii L'trifdiit num- 
bre de trues d uliiisation. II sagii 
d'oitwa^ 4fe f4ii^eht:e. oO loutcs 

les coiTirndniltti khii an^ysfes dans 

Tordre alphafc^fiquc Ct" Gorrimeritees: 
m detail. 

Nous coTi5elllon* Tulilibdiiun dtf ces 



"Clefs" pour !Gn<;cigner sur telle 
teliK LurmiicndK, ou Irouver la re- 

Hempnlot Multiplan, par P. Br^- 
net et M.T- Dinh. chez E<^mi:cro - 

108 pages - 78 FF 

Nou^ rt'Erouvous ici les memes objec- 
Tif'^ qui? dacis les deux ouvraqes pre- 
ri^dmK m^ii? on a du mal a voir cc 
que ce livre apporte de plus que Ia 
docuofier^tatiqn du p-t^amme MuUi- 

The Visicalc Applications Book 
for th€ Apple //c, par Jack Grush- 
Rcgten Publishing (Pren- 
tice HalU ^ JlS.45. 

liLTf -i^n ani^l.Mis (.-omportc utif] 
^jct;[jit^ie prfrlit d apprcniliiSt'ig^? d»? 
Visicalc, suivie de six exi?inp|y^ ap- 
profondis . suivt de fGgl(?TnL*nt^. ana 
lyst EititiiKit'rf J fiilT^^piist'. prevision, 
plan, tresorerit? el geslion porte- 
feuille- Ouvrage bien faiJ; malhcureu 
senierat. lyy tis^^ples sonT pas. 
lorcemenc fran^isattf&s S yemA-dn- 

d6a«e II sans embuches. p^ic G. 
Gngoneff - Eyrolies - 176 pages - 



115 FF. 

While Jr ■ Eyrolles - pages. - 

150 FF. 

Forth pour niicrQ». pai J.M *lv 

Gtvi^r ' Evfolk'S ■ [92 pages - 90 
f-F 

L art des bases de donneea;. par 

5 Miranda er J. M. Busla = HyroHes - 
248 pages - 180 FF. 
Les sv^tenieii de g«9^a de 
bs^s. de donnees, pa^ J. i%k&^ - 
Es/rofies - 320 pages - 170 FF. 
The Apple e pei&onaT cuiiiputer 
for beqinn€r$. par beamus UunTi el 
Valipnc Morgan - Prerjtiee Hall - 251 
PcicjL's - f 12 9rj 

Handbook of Applesoft Basic for 
the Apple II and e. par Roy £ad 

M^'eis Dli^;:] hn eider - PrenticG 
hflll - M\ p^gt^^ 1'['-i4:"-> 

Apple programming for learning 

and teaching (ovt^r 50 applica- 
tion proqrams}. par hrederick Bell - 
Reston (Prenlica HaJl) - 3,05 pMCS - 
$ 22.05. - - 

Le Basic bleit pFH^amnie. par 
A.P, Stephenscin - Mi<:roDunod 

Basic Microsoft et Basic ANSI. 

par M Maiman - Mk:raDunod - 165 
pages - iiO FF, 



Les nouvelles disquettes de Pom's 

Alexandre Dub&ck ^ 



Pom'!^ v/niPs pr^enle au)ouJd*hui 
h'ois nouvellej disqucrtes . un ^diteiir 
plein ecran. la version 2 du FJisk Ma- 
nager Ipnfin) *n iin<^ disquettt- Macin- 
tosh. \o premiere d uiif longui? s^ijt 
Savle^-vous que les disquettes dt' 
Pom's sanr dtsquelles les plus 
vendues €ri France ? 

Disk Manag«i ver^iuii 2 

Pnx : 450 francs, tchange graruii 
avec DM1. 

La version 2 dti E^sk Monijcier rem- 
p!ace enfln h partir de ce nurnero la 
version 1. dort I'fixp^rii^nrp ri prnuv^ 
qu'cBIt? n^ctait hcbs pi^s fxt^iTjjii^ di? 
bug.s. Aiiii dt; ne pas leser les ache- 
teurs de la premiere version. Pom'.s 
offre gratLjiK'iiu riT la seconde version 
a tuui dthi^ieui de la premise: len- 
voyez (apres en rivuir feit Kme. ropie 
de 5ecurite) la disquette originale 
rei^ufc? Pom's et une enveloppe au 

format ^^*1.6 ayec vette adr^s^ et 

gratuileiTit^n! \<^ riouVeile Version, 

EdlteuT pleln ecran 

De (:. Leyo. Pir^ - ISO franc?: 

(1^2\U' ri^sqi.iLnL' conlieni un excellent 
programme pgui ^dilei un pto- 



gramme Basic en pl<?in dcran Vous 
\\%.\yc6 volrt: pro^rdmmt' Basic, ie fal- 
sant d^filer a loui insfan! en marche 
a^Jant ou <?(i marcl^c arriere. I'arrcianl 
qudiid voui vgule; Vous effeciue?. 
le!^ changements direclement sur 
iensemble de I'ecran, les comman- 
des ^anl lancets (conjint; dans le 

Program Une tdilor - Pom s 1 1 par ■ 
des touches de controie. 

Lgs command-fs sont nombreuaeS : 
d^but de progranime. fin de pro- 
gramme, marrhp avanf, marche ar- 
ricre. destruction, insertion, entree de 
caraci^res de cOrlttate: e^wrem^ttt de 
fin. de ligne, acces aux cnrTLmandis 
PCfii. jrecherche de chames... Les ca- 
lact&ifis de contr6Ie dans les instnic- 
tic^S tyipararssenr en inupr*^p 

Line partEciilarite cjue notis a^if:e^ 
cions beauTioup . un prograiTiine sp^* 
cifique permet a Tutilisateur de cboi- 
sir lui-meme les caracldres de 
contr61e des commandes- 

Dlftquette Ma^nttrati 

Prix : 150 francs. 

Avec Ie developppmpnt Hi.] dossier 
Macintosh, il ^lait inevitable que 
nous VOUS proposiGHs aussi une dis- 




quGtle Macintosh, Cette pf^. nik^iv dis- 
quetle ccmpoitt' pjuyjtiJiJintj.'^ pu- 
blics dans il: -. iionie:os 14 el 15. 
ainsi que le piogramme Disk Copy 
{copie rapide de disquettes avec uji 

^mJ loctdUF) ^{M poliG6 de caractgres 

WMte.ps^tinier en Images (voir Ik ca- 
hier Macintosh], Jusqu'S satmaton 
&k 'feellG disquette, nous y medrons 
atthDmatiquemenl luus Itr^ proyram- 
mes Mac de Pom s. ainsi que de pe- 
tiles surprises, ulilitaires, polices de 
caracteres, 

DiSquette Pascal 

Prix : francs 

teu^; tigus avmis regrouj?^ d$n£ .une 
dlsqu^e trrtitjue tous les program- 
mes Rbfefes dans Pom's 
depuis 1-e d^but. Cela vous evitera de 
transf<^rer les programmes du DOS 

Les fichiers TEXT sont au recto de la 
disquette el les fichiers CODE au 
verso, ainsi, tl n'y atim pas de pto- 
bleme de compilation. ■ 
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Micro-informations 



Apple, quo! de neuf ? 

Apr^R un M^icinfosh 6e 512K, ne 
qualre mois avont terme. que pr-e- 
pjre-t-on chez Apple ? Les m^Ueiirs 
Umiers de presse micro-inffwmafi- 
quc drnSticahia sont sjr ie coup. 

rheure, \e ^ferice. de Hgueur a 
Cupertino, laisse libw* rnura Pi toiite 
les supputations. 

Cdte Nki^.r.i sn, on prevoil des lec- 
de disqiicttes douMe face; la 

D'autre part, le plus ^xaspi&ant des 
probl§mes de Macmtosh, la tenteur. 
Gsl partiellemenl du au svi^leme d'ex- 
ploitetion qui figure 5ui i.haquf djs- 
quette programme. Le lai! d dvoir ^ur 
la disquettc une pertie du sv5^Tt:Tn^ 
t?st par centre un avantage cai on 
peui aisement en changer pour, par 
exemple, adapter un programme % 
un clavier AZERTY. Les prf^etg, 
cours consisleraient done a int^^%^ 
syst^m^s an Ma^to^. ^jout en 

iflr^ lih phis rapide aux infor- 

mations. Une feis resolus les probl^- 
mes de capactte et de vH&^se. Apple 
pourrajt, dit-on, se pencher stir 
1' adaptation la coukur au Mac-,^ 

C6t^ A|^le n, on attend pour la fin 
de Tariii^e h^s nuuveaux accessoires 
du 'c et, notamment Tecran a cris- 
taux liquides disposant d<? 25 lign<2S 
d'dffitlLdytr Si un Ya pas vu plus 
tot. cest simpl^mfnl que son tabti- 
canl. \g Japonais Sharp a ^ubi un rc 
idid Jt; jiJi rnn]^ ^!c^n^ la niise au 
point di- cf\ firct'.--^oiL"..' Hout li? e. 
on reste muet a Cupertino sur les de- 
velt>ppenienb du processeur 65816, 
qie pteAtiet&^tcie-le convertir en une 
imcbln^ 16' bits. Problerncs dc n^se 
au point on aptHtrchtd du d^oue- 
ment ? 

D'aiitre^ flhides portent 5Ur la capa- 
ritc dcs Iccteurs de disquettes. Au 
inomeni oQ IBM parvient a siocker 

12 Mp sur un^ diS(iueft? de f> 

poude^ V4. ta rriM-capEic^ du 
tair du 11 {143K). devient problema^ 
lique-. On pput Honr 'j'attpnHre Ire? 

prochaincmfot a voir cctic c£5pacit^' 
augmi?ntGr natabl^^mert La difficult-? 
con>i.^Ef seulpmi'Mi ^ ni.r"iiT>^>inT I-? 
eompaltbilitc itvec le^ disqueitei exiis- 
tdrnes En attend-^n!. voici des npu- 
veaui^s pour lous k's Apples, 

Moniteur couleur 

La notA^eaiitS de l*autonme. c^est 
£iux Etats UiMi ]i' nauveau nianltsur 
Couleur sortj pat Apple \e moniteur 
100. Esthetiquement, il ressembJe 
beaucoup au inoTiiEeui [nuiiot^hrume 
du e . Son ecran est inclinable de la 
mem<^ fa<^on mais. cQ\ie Eois, un pelit 
moteur 5e charge J'operaliojr {\v 
tube est beaucoup plus lourd) et il 
suffit de presser une touch-G pour que 
Tecr^n s'intllne veia Ik haul ou veis 



le b^^ Pnur f^ire foncrionnfr £:e mo- 
niteur. il faut bien sur disposer d'une 
carte couleur {Ou d'une c&rt& Chai 
Mauve) 

Ce" niontteut est vendu am Efbte 
Unis un prix respeclabk* : 600 dol- 
lar5, 5QiU p^^^ b^^tiucoup miiJins de 
6000 Francs au cours actuel du billet 
vert. L explication d Apple ; il s'agit 
d'un des rares maniieurs couleur ^ 
fourmr en l€Xie ta quaiite d un moni- 
teur monochrome, particulierement 
en 80 colonnes. On pi^ut desoiiiidjib 
5e conlenter d un scul moniteur pour 
l^. jeux, les graphiqucs. ou les activi- 
t€3 professlbnn^es. En 80' colbHres; 
iJn switch permei de cholstr la cou- 
fotjr de I'affichage : bleu, jaune. etc.._ 
Un bo-uton permet de pa55ct du mo- 
nochromc ^ la couleur 

Pour disposer d'un slockage de" d^ri- 

rapldetnetit. le dlsqm skir -.cst i&du^ 
tion. Les prix comtnetiicent ^ b«^S3^ 
sensibSemenl. Ains*. le ffiodele pre- 
sente par la firme brilannique During 
propose une capaciie de 10 Mo pour 
un prix de 1095 Livres, soil environ 
14300 F, Pas Cher Toctet.,. 

Cote clavier 

Vous pouv'ez remedaer a la laible ca- 
pacity du buffer du clai.'ier d*? 1 Applt? 
//e; il VOU& suffil d'intercal^zr It^ Type 
Ahead Buffer TABl de Trac S^s 
tems Corp entre votre clavier et sa 
prise sur la carte mdre. Pour seuie- 
ment 4,') dollars. 

lit si I on pouvait sg pai^ser carreiTient 
du clavier '■' Pourquoi rt? pas entrer 
donnees tn dunudiil de Id vuis ? 
C est possible avec le Voice Input 
Module de Cascade Graphics. 11 suf- 
fit de parleE puui qut^ leiireyistie- 
menl des instructions se fasse. Vous 
ditGs "Catalog" ef la disquetle affichc 
son cuntciiu 3 Tecrari. Le syst^ine scJ 
compose dune carte, d'un casque, 
d un micro et de logiciels- II peut eire 
utilise sur I'Apple 11, mais aussi sur le 
G (il faut dans ce cas enlever quel- 
ques circuirsl Principal defaut : il ne 
suppijiit que Id VO (c eil d dire Tdn- 
giais) et peui se reveler sourcJIleux 
gar Ut, pronondation 

La piince & tiered 

Enfm un petit instrument vendu 69 
francs permel [a C(=ax qui cint epuise 
les charmes d^ la pince a titzrce e{ 
qui ne veulent pas se lancer dans la 
constructio-n du double switch) tie 
doubli^r Iq giip^cite de leui^ .dfs<jueh 



Jean-Michel Gourevitcb 

les II rEi^roijpi^ .mtmnaMquempril au 
bon endroit I encoche qui permet au 
Jccieur d" accepter la disquette pour 
enregistrement Attention, il yaut 
mieux verifier ensuite Id sihIch:!? dc- la 
deuxjeme face, hv^ uri ilSbtaire 
{gpnre LodfsrnJth), fie f^aS'TutHiser 
pour des informations capitales: la 
garantie du fabricant de diSQu^ttes^ ne 
s" applique pas au uersa 

Des yeiix pour Im Macin- 
tosh 

BIP distribue la camera 6& d^gitalt*;^- 
tiori Mtcroneye, ven^iie 5,300 FF 
HT auec son interface et son logiciel, 
Cette camera dlgitahse une image 
(qui doit ^tre contrastec) et la tons- 
forme en image MacPaint dcsfic mo- 
diti'"iN'> ^ loisir Elle fonctionnt^ aii^isi 
a la lumiere artificieile et a I infrti 
rouqe. On peut reprendre un docu- 
ment de la taille d une photo d iden- 
tity Parfait pour une utilisation avec 
le geslionnaie de fiches MacBase de 
Corltr^e X, qui permit d^ metfrp 
des images dans fichp^ 

Des yeux pour tous 

Palettt>. 1 imag<-i]i eliTtrnnique cou- 
leur Polaroid, permet d'oblenir des 
diapositives in&lanlanees ou des 
photos papier a partir de nambrt?ux 
logiciels courant? (TGS, Decisionnel 
GraphiquG. Visiplcit etc,..) ou d'ima- 

Des cordes vocales pour 
TApple // 

Cdlciel vient de sortir la premiere 
carte de synthesc vocale en langue 
frangaise pour Apple. l& Porte-Pa- 
rolc. Non sculemen^l etie porle fran- 
gais. mais pour lui idwe dire a peu 
pre5 correctement I u.'nfe' on tlii? 
blackboard '. il fout ecrire "Aille raillle 
onn Y.e blakbaurde'' I Nous repajl^- 
rons de celle caile 

Un ecran portable pour 
le //c 

Apies avoii deja piuuvO sun otigina- 

liie avec le .SI^kIu^K un Apple //e 

porlabie, IRF. S p^^&eiltfi aU SJCob 
un moniteur portabU pour /'fc avKc 
une batterie incorporee d'une auto- 
nomie d'enuiron 4 h<?uri?s Cn^rtes, 
cet ecrd-ii e?ii sensiblt^nieiU plus vulu- 
mUieuK que le c. mais il comporti.^ 
une batterie, ce c^ui ny st-ra pas k' 
cds de I'etidu pEal du c loujours al- 
tendu en hrance. Prix Z.b^i} hb HI. 
Voir la photo de couverture de ce 
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Des programmes pour 
tine souris 

II n'aura pas fallu anendre tres long- 
temps pour voir apparailre des pro- 
grammes uHlisanl la sourie ^quipanl 
It i-x t;l It: it. 

VerslbFi Soft (le Cr^atelir tfEplSbte) 
prp^<»nlp ainsl VpTslotiCalc, l-e pr-?- 
mier tableur souris pour le C. 11 pos- 
sede line fonction graphiqut' fl pt?r- 

yT.iplikiiJi:>. tOLJl :^'o^foctual"^t av£2C 

la smx]-^ ff cl^^3 iTit'iiLii qui rappdlent 
funt'U^t'int'iil It^ Mrn:into.sh Attpniinn 
ruliliaaiion dt; ce toyidel sur un e 
(m^me avec une sourisl peiit pro- 

Dazzle Draw, de Broderbund, pit?- 
seiiit- uii irrrin irippeliini lui ciussi \i- 
Macintosh el p(^rmLn, a condition dii 
disposer d'tine souris (ou d'un loijs 
tick d\me lablptte Koala, etc.,.} et 
de 128K, dc dessiner a Tecran. sut 

poUr un pr^ *^cariOrt" ' 50 dollars 

seuUmit-ni 

' tnhii. dt?TnieK' conquL^t*' d^ la souns. 
■ Summergames d'Epyx, presejlite 
m Soul ^implement les )cux olympiques. 
I ^preuves de natation, de saut d la 
I papche. d« Hr, etc,.. On choisil U na- 
I d(»iaKt^' 113 pays pus^lbli^s) <J^ 
I ccmcutreats avec la sojjris. on joue 
P avGc le m^nie ir!StTumi?nl. Apres cha- 

qUf VII I' kin.'. rA|.iplo vnub |uutr 

1 hynint^ national du jjagnanl, *it cal- 
culi la rnfjvvniii:' d<>^ rrK^dailk's obt\?- 

traor^lL^l^llrl:■^ |] i. a meme line 

^ Plus classique 

P Papyrus est Id version francl^e 
i' d'Homeword. un Iraitemenl de lexles 
■ avec icoTies- C^rt^. ce n'csl pas le 
plus sophistiqu^ des rTaili?ments de 
textias. PouTiant. sa (aciliie dVmpioi 
J <?n faiJ un 1oQiri(?1 hors Hii rnfnmnn 
D'abord. parce quon pfuT. pour 
chaque action, choisir un icone ^ur 
Icquei on se deplace avec le cutseur. 
Mais, heureuscment. des codes per- 
Ricttent atix clavistes experiment's 
cte court^ffcuiter ces ic6n*?s et de rja- 

en Hipidite. Un bon pmx\^ 
siffle, tralEem^nt lex:tes permit 
^^affirfwr r^ran le twtle t&l qu'il 
sera impriifl^. O'es* suffisamment 
rare pour mentor tin second bon 
point Enfin. lorsqu'on tui tape un ac- 
cent drcoTillt^xf 8uivi d'ui^e voyetlc^ il 
wus alfiche a l ecran la voyelle avee 
son accent drconflexeL BtaA^ ! 

a on ajDute que Fi^jyrus^ ^mtet 
d'itifi^irdr dafts urt testis un documant 
quT se trouve dej^ cnregistre sur dls- 
quetfe (Macwnte, le premleT tralte- 

ment ii( U'xt" du Mrit^nio^li. ne le 

caractere^ yra^ wuliynes, i eflricf 
menl des mols ei des lignes, t?l pyui 



m^xne antomciiiqufni^Tf [iiLin-"-i.iT«'r 
des p^rt"jgr^ipln?s indejitt^s, on peut 
sestimer s^tisfait du M^n. Toul 
fih]^ pi^nT-nn lisi rt^prorlipr i>n ^^isic^ 
d^ ICKtes. u!"iG certain*: coniaEiioii a 
Tecran. Lorsqu'on change de cara* 
\(>TP^ {pa^^aqp. en w>iilignp i^ra-^ 
etc. .) ei qu'il faut rcvenir au carac- 
lere normal, ce pc>s^a^ sinscrit Gn 
rlair a I'pcrar. qm fes RE- 

TlJRNs, Rcsie que p*?Mt i&pm siin- 
plt'mem iHie p^iG Icitre. ce pi^ 

(jramme n'a gu^e de concurient 
D'Dulant quil ne coAt^ t^ue 85p 

fivinrs. Forcement rceOTftmaride^ 

Parmi les pif^K^^rnnFiBS. int^P&S, -^i si- 
gnaler Ma^ <Mfic^^Artsci. qui 
comprend un traflement de lextes. 
un tableur. des grapfilques el un dlc- 

liiinn-TiiK' di:' corr^^ciion. \^ loul claire- 
iinrii pi vseiik' yju tiKiirs. dossif rs_ 
avec de^ possibililei^ de couper-coller 
enire docuinenrs Bien mit^ux pre- 
senle qu Apple work^, mais tl m.- lui 

manque que Quickfile : jI n\j a pas 
de g^^bhn^te'^e fiches, 

D*?puiE peu, the Team de U Micro- 
uMiifjiilei^. oflie un MiiileTTifnl dt? 

teMt?S. un (ji"^!t()nnrii;r lI'' lll"hl'^. dt's 

possitiilites de calcul el un ^raphisme. 
Le tout fonctionRant en Pascal pour 
Apple II Plus, e et c 

A rt'niarqiit'i f nt i">rt-' li' loyint^l dt? 
correclion d o-itli^ iyf'iph<> ,;iUtoma1i 
que Sensible Speller de Sensible 
Softwart? ('["jnts-'niint SUODU mots siir 
un ^eu\ disque iune performance sur 
14!iKM C'esi malheureusemeni en 
anylais. il reste encore a invenler 
un de c^s logicfels dc correction en 
frangais. Le Seii^ibU- Speller tone- 
tionne avec la plupdri dt^s progiam- 
me& dc iraitement lesles et coute 
qtldques 125 dollars. 

Le programme Spelling Handler. 

de ALS (Sunnyvale, Californiej fail 
eticxwp' mtelix etxfer 90 OOO mots ' 

JcuK d* a ventures 

Enfm, deux jeux d aventure de aea- 
hon frangaise : Epidemie et Para- 
aoiak. Du niveau des jeux d aven- 
ttirfi' am^ncains selon les criteres du 
«e<i"arlo. des graphiqiies et du k>0.- 
Efttes par Froggy Somware et distd- 
byfis par Shift Editions. Foncttonnent 
sur 11 Plus, (f ei c, : 3S0 FF 
*TT-C piece- 

Imprimante a marguerite 

Ktijdt;A vitruL de iurlir u;i^ machine a 
^Crfre'imprimante a maryuente eco- 
homique a 5.000 FF HT prix public 
conseille, TAE 355, offrant de nom- 
breuses possiWliteS- El!e fonctlonne 
en paralleiG, ifiais on pcut acqueriv 
Ull bciltitir pOUi Id cuiiiicx.iuii ^erie 
avec un butter de 2K (1.500 KF HT3 
ou 4K (I 700 FF HT). Unc maryuc 
rlif e^l faurnie d'ongine, mais 9 
ciuires sont disponibles. Vitesse d im- 
prt^ision : 14 cps. Trois pas d'ccri 



lure ID, 12 pt iri. 
Un niod^^le recent, t'AE 385. vous 
oHre pour LOOO FF HT de plus des 
qaraci^cs ^as. un eBpaccment pro- 

^atfonn^l et impi^moti bidiiec- 

Deux losiciels un peu 

particuliers 

Le Biofeedback de Sinapse 
comprjrtf LLii liijndL'atL a placj?r iUT le 
from, conlenani des capteurs. et me- 
sure le niveau de stress de l utilisa- 
Ipur de TAf^ite il rflsiiltat s'^^ffiche 
sur recE&n en coupes €t grai^ques. 
Un stress qui comm^tiCer^ avec 
Taehat^ prix 150 dbllars 

Lg Smarthome de Cyberlynx. per- 
[uei lui d^dut^iudtis^i un apparte- 
ment et ds is COntcoler avec I'Apple 
'/p. En sm^i h s^&,. Gt 
Q\^e des fcStiCS, on contrSfe Tcfeittfi- 
dl$ ^ les svt^mes d atermes antiuols^ 
Prfc,: 499 dollars. 

AAtesses 

Alpha Syctemcfi - 29, bd. Gam- 

bettci - 38aCHt Gr*^noble Tel {7b) 
4.3 I'^^'T 

- 13. rue DuL - 75U1S Palis - 

Brtfderbund Suftwcire - 1 7. Pdul 

Drive, ^an Kafael - CA -^4903 ■ 
USA 

Cascade Graphics Development 

ISS lower Richmond Rbad. Rfch- 
mond ' Surrev - GB 
Controle X Tour M^iine Monip^ir- 
nasse 33. t^nue du Maine - 
75755 Priris Cedex 15 - Tel d3S 
98S7 

Cyberlynx - 4828 Stertina Driue. 
Bouldfir - CO SO30i OSA. 
Edldel Matra Hachette 22. rue 

la Boefie - 7B008 Pan? - Tel 260 

LE-F, - 193. rue de Javel - 75015 

KardeK - 201, ru^ Garriot - 94120 

Fontenav sous Bols. 
Sensible Softi^arc 24011 Seneca 
Oak Park - Mi 4^237 - USA. 
S^a|p9« - 5221 CcrHral Avfehue 
Richmoi-id CA 94804 - USA. 
Trac System Coq>. - 444 North 
3rd Street, suite 201. Sacramento - 
CA "^4814 - USA 

U-Micrucuiiipuler^ - WinStenlcy 

Industiiai tstaie. Long War- 
rington - Cheshire W^SPR^ Gft. 

Version Soft - 60. Tue Castagnary - 

7501B P^iris Tel 530 0528. 

Froggy Software - 33. aLfenuG Phi- 
lippe A uiju^^to 7501 1 P^iric 

Polaroid Franre - 4 fiit' -]-P Tim- 
b^ud. BP. 47 - 7^^391 Bo\s d'Arcy 
Cedex ■ Tel (3) 460 6166. 
Shift Editions - 27. rue du General 
Foy - 7500S Paris, M 
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Courrier 



des Lecteurs 

Alexandre Duback 



Utilisateur d'AppieWhtex siir j/fie 
Oi<i84, je ne pBrviens pss ^ imprimer 

'r: LV^ «e *^bfe m em 
pas t^cohmit^'k /e carat^^fe dl» yi^- 
placement a gauche Chl-H. utflisabJe 
ovec les autres imprim^nte^. 

Jean -Marie Hasque/iop/i - 77-500 
Cheiles 

AvGc les -Oti Ig backspace ne foric- 
tionne pas, Pai cutiIei^. ^ui ruun Oki 
92 (ce devrail e\re la m^iriL^ chose 
pour une 84]. ] obtiens comtne vous 

sur un trema tnon sijivi d'uriK^ lt*Itrt?l 
Pour iesier routes les po^'-iibilil^'i^ de 
caracteres votr*? impHm.i'iiL . !t?ez 
un fichier avec toutes les louchi^s de 
votre clavier, en mode normal puis 
Shift, jpm Ctd- puis Ctri-Shift ei 
entin Ekcu 

Vous aurez peui-^e des surprises 

voire inipjjnidnle ((lans 
ehlevez Cfi qui "pJante" Vioipri- 
mante). mais cette recli^rche syst^- 

matique petit vous |ffi iLit^lli t: de 

trouver des solutions a dt?s proble- 
mes tels que ie pr^Sdeni 



Vends Apple i! Plus avGc carle Ian- 
(l&KI. joystick, paddles, mont- 
^ur et deux Ifrct^^itrs dp, disqtjettps. 
Ptbt l^SOO P & ^pmei 

A AuranG - 124 guaJ LoUfe Bl^not - 
75016 Paris. 



VeVids Apple lie et^i neuf encore 
sous garsnn^ (cause dcmbh ejmptoi). 
^v€c monitear et simid mot^tevr^ 
11700 E PcsslblHt& d& soUris et 
hcteur. Tel^pthone 9S6 ^ 
O0.poste643. 



Vends Appli^ fi F!u5 avtc monii^ur 
San^o uert. deux tecteurs et an 
contrdlcLsr DOS 3.3. cartt^ commufli 
canon asijnchrone (CCS) et carte 
idimge FuK 10.000 F TFC 

m^i^n& ^ 6cnre/impdmanta 
ESWlW'HSR (hjtedace 
sine). ExceBeat Stat Pnx 8.000 F 
nCiAt^at U587F}. 
Bruno Lemake. m (3) 956.80.00. 



Vends Apple U Flus avcc moniteur 
Pb^p$ pcre, deux lecteurs et un 
<^tt^m DOS 3^3, carte langage 

Mismot^ mte HVB ooffoa 



L'0im.e APA d'APPLESOFT 
TOOLiQT c^mporte un bug. En 
e&t A essf in^^^^te d'obtenir la 
Sste -^s vsmWes- CfoncfiSr? &XREF) 

sf )a pEeg^lwrne &nafys^ contient des 
DATAs- L'addiHoh aes deux ligries 
BASIC ci-dessoi!5 programme 
LOADAPA autori^e la re{erence croi- 
dans icH/ff lea cas : 

115 HI = PE&e <II5) * 2U I PEEK aU) 
- 6: HlNBIj ff] 



315 POKE Hl,32i POKE HJ * 2. PEEK (HI - 
llTffh fM KI - lITtf.HI / mi 

POKE HJ * !, m}i <HJ - li?J): PO 
KE Hi - 1I7KHI - 256 * PEEK (HI 
- n70?: POKE Hi * 3,2D1: POKE H 
J + 4,0: POKE HI + 5,96 



Yv^n KOENIG ■ rvalue du stade - 
0622O VALLAUfUS 



sjij"5 tram d'etre On pm^ 
gramme gesHonrja^e de' ficHiet^ et 
deux prubMrnesse poseni A moi : 
1} Je i^udrais que man programme 
puisse me dte d Sous moment 
combien de secteur^ re:^!e!n hbres sur 
la dis>qui?tte n.>'ifn->^'nt iaire 
2} J'aurais t^g^lement voulu que le 
RESET aqisse comme un RUN. La 
routine de RUN etanl implante en 
DS66. fai conwerti ce nombte en de- 
cimal, et f'en poke les poids fosi ei 
iaible aux adre^^es lOJO et iOU 
POKE 1010,102 et POKE 1011,213 
m^ &^CALL - 116^. Ceci pros/o- 
qm ^ m ilUW 4 ^h^m RESBT 

mats ies ofdces du COS i^^lMterit 
&hrs a recran et ne fcmctiofm&tit 
plus. Comment y rernedier ? 

Olivier LEDOUX 13.-^ 12 rue du 
GalLecierc - 59790 ROr^CHIN 

Dansle Pom^S 2 en page 17, ftgu- 

rent differentt^s modifications du 
DOS, porticuli*?! k "patch" tieces- 
saire pour obi^^nir noinbre de sec 
teurs di^ponibit^s dans It? CATALOG 
Vqu:^ Irouvertiz d-de^^jous If li^Liny 
qui realise la modiHcaiion. il sutitt 
alors d'initralisGr uotre disqUefte avec 
uuUrV^&u DOS. 



18 AJlH ^i fcj ia uM jmgmiwm wHW rtt 
S SECTEUR9 LiBftES * 
w A CHEQUE 



R&n 



aHOPlE t LIST la. 

N B500:O2 aC ZB F3 fl9 flfl 
33 40 85 ftl R0 CB 19 Kil 
BZ FC Be Hfi 3GJ FS i^O D 

02 EG 41 £8 le 90 Fffl 38 
E9 ^6 40 AS &L AC 03 EB CO 

20 24 ED 2B -fiF^Ae^MP 
IIB GGBUB _ 
120 PREWr "Ot^'i END 
GZSfZB REM 

ROUTINE nONETEUfi 

B3910 Y« - y» * ■ N DSCfiO- 
63929 FdA I » 1 TO LEM CV«) 
633^ pSkS 511 * 1. flSC ( nlD« C 



2] Les HCJKhs que vom u:ilisez pro- 
uoquent en efft?t un RUN lors du 
RESET. Tuuit^Iui^. 3^ RCSCT de- 
connecle Le^ fiitrt-es 5^aities du 
DOS. CALL H)(J2 au debut de voire 
programme i^sijudrd vulit piuliltrnf 
Cependanl. i! e^i bon de preciser 
qu'un RESET dans un progtamme 
qui ^&av£iiil^ ^ur .diHi.U(ilte i)'e&t pa& 



Je recherche un loijiciel d'aslriilngip 
profession nelle t^xploitable sur Apple 
. e. Je sais qu jI en ex}5te un en fran- 
^ais. Pouvei'Vous me le coniiimer '■' 

Jo&t Moreau - 7 me J. MQoe^ - 

44100 Nanies 

Pout-Gtre un iecteur peul-il nous rc- 
pciridre? 



■/ jj," ioude a New Delhi une soci^te 
i^ip^^aalii^ee dans la recherche acousfi- 
qiHiT el reltsnosisU5ii'ologie. qui utilise 
de /^fo/j intensi^'e les micro-ordina- 
teurs. Apple i^ntre aurrt^F. <h \'oudrai5 
^T/yNd/f; ^ tQU^ ceu\ qiiG ctfs dom^ii- 
nes snteressent que ;e compte fonder 
la tranche europeenne de cette acti- 
ve d'ici un an eiv/tod^ D^m cfefte 

^i^rtisct&r. 

Be! ' ISTAR - irdJorbagh - 
i^ ^lhi 110003 - Jnde 



Je comnterciaiise un logia,'l de deco- 
dage des emissions radiotclijt^r^^phii.' 
(RTTy'} au prix de 600 francs. A 
Faide d un recepteur BLLJ. il est pos- 
sibfe de decoder les messages cn 
trots Wfesses, les saavegarder sur dis- 
quettP- et fes vi^iialiser .^ur ecran nu 
imprimante. Les T0suitat$ ofetenus 
sont tout & fait satlsf^sants et J'fnvlte 
les personn^s interessees a m'ccm-? 

MoT}sieur Guedj Michel - 34 sue 
f^ew Cuiiff - 9313Q Nofsy le Sec 
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EXPO 



ID" CONGRES-EXPOSITION DE MICRO-INFORMATIQUE, DU 16 AU 19 F&7HIER 198S. 
PALAIS DES CONGRES, CIP- PORTE MAILLOT, PARIS. 

■SH*OSITION : MTCTSO-CBBlNA'mUHS / LOGiaELS / DIDACTiaKLK / PRDGICIELS / BUREAUTl- 
OUE / TELEMATIOUE / ROBOTIQUE / INTERCONNEXIONS / PERIPHCRIOUES / ACCESSOIRES / 
3V-'J.^" ' ^^'^ ' EDITION / PRESSE SPECIALISEE / INPTriiTG DE EORMATIOM / SOCIETES DE 
SERVrC^IS / LABOFATOIRES DE RECHERCHE. CONFERENCES : ACHAT D'UN MICRO-ORDINA- 
CONTRA? INFORMATIOUE / EANGAGES : BASTG. PASCAL, MODULA H, C, A©A / 
SYSTEMES : VERS UN NOUVEAU STANDARD / COMPRENDRE LA TfiLEMATIOUE / 1 AVEMR DU 
X^oiS^'^F ' irj^L'-IGENCE ARTinCIELLE : EES SYSTEMES EXPERTS / EE LOGICIEL OUTIL DE 
GESnON ■: BASES DH DONMEES - LOGiaELg INTEGRES - TABLEUPS - DECISIONNELS GRAPHI- 
OUES / MICROTNFORMATIOUE ET PKOf'ESSIONS. UN PASr^L"-"-;'RT D'UNE VALEUR DE 100 F 
DONNE ACCEG A TOUTEB EES CONFERENCES. CATAEOGl JE PJETAILLE SUK SIMPLE DEMANDE A 
SYBEX,6-8, IMPASSE DU CURE, 75018 PARIS 



A pjopos "dc5 trues pour Appit' LVjv 
ler U L't e" de H ThUie^ JtJ/b le 
^om s 12. /ayoufe qu&lqiies mors sur 
}a commando CTRL V. II est vrai 
i^Ue le yiwii^ire de /a version e In- 
terpi!^ ies caracteres de control 
ctJjJinie en mode direct U est dptic 
Mcea^ire de fas (dfre pr^r^dfet^ de 
CTRL-V dans le ghssaire? Or. pnttr 
des raisons cvidentes, iJ n'est pjs 
possible d'enrrt'r CTRL-V d^ns un 
texte par k> nioivn h.-ihsfii'^i C)l^ ^ 
done prt^vu sur h disqu^^ric an fiLhit^: 
(COmROLV} conft^ndm Ic i\\ 
raaere CTRL-V pour pmn-oir I'in^f- 
rcT dan:- un rcxte qui peui ^^etvir de 
glo^5(ti^f li I a lourefols un moy^ 
qui evite ies acces rep^t^;; A h d/c- 
i? SvfSt d'ilHSser n'rmporSc 
quei rniir^ symbols a la place de 
CTRL'V. "* ' par ^3tf?mpft' En fin de 

par d&s Cfmr-^ -m umsam /a 
commande CTM^-^ puis CTW -F 
CTRL Va. En eWet. l inslruction 
CTRL-F n snierprOw pas ie CTHL-V 
m^is se copteiiie df I 'insf'rt'r 

E^nie! HIBST - 13090 AIX 



(fe i/0!i-; pyfpii^i? nn pi'Jsl prnghimttii-' 
Basfc complt-menuvri^ dts- Li louUn^^ 
de compdtjatsoi i de psogt anmies 
Bcis/c de Ge^<*''d Mirh^l pnhliih^ d^n.> 
le Pom's U (LVI 'OBr)} 
Ce progremme den^tvidi^ Ies nom5 
des progr^nimi.'^ A camp^irfr rrAe 
un ikbier EXEC dont i/ lance I'ex^- 
cxitiBB pdttrfe^'^ ia Gompareiison 
Gerard Hssieyr - JS320 Eybens 



lO HDHE ; HTAB 1: lMVEff3E ; PH INT "^COhP 

ARAISOH [>E FIGHIER3 BASIC 
20 UTAH 7: MTftB IS PRIMT "FICHTER 1 I " 
30 t/TAB 101 KTAB li miNT 'TICltlER 2 : 

<0 WOPWj^L f VT*a 71 HTAB 1^: INPUT ""jF 

1^0 VTAB 10: HTAB 1*: IIPUT F3» 

to tl« - CHRB OJTEfTP MTD 701 PfiINT 

DVI'-DELETE DIF.EMEC" 
70 POKE 21&pO: PRINT D«i"aPEir DTF.EXEC- 
I PHIJiT 0»i"UPTTE DIF.EKEC" 
PRINT ' BLOftD r>ir,QBJ": PFrlKT "LOftD " 
Ifitt pnjKT 'POXE 103,PEEK< 1751 :P 
OHE 104,PEEKI 176>": PRINT "LO^D 
:F2i: PRINT CALL 37500- 
« PRINT "CAi-L979-; REM PATCH A.AVBME 
W PUm mf^CLOSK't PBUIT D«t''EXEC Dir 




N.D.L.R. 

1] Plusieurs iecteurs nou5 orrt signalc 
qu'ils avalent r^solu tes probE^mes. 
concern,ii^t_zjki .iCppie sur itnprinaante 
des ecrafs' W- i^r^sentatlon des dfs- 
qiiettes Pom'^. La solution adoptee 
consists fllors loujours o cnvoyer 
I'etti prima nte Ies codt:s pi^rmeltani df 

siipprirn^^T r<>ffich^i]»' ^imiilTiirii* 

Nou;? iVaviOTb pt^uvtnre pris .ib^-e/ in- 
sii^ty sur a? ptiinl dansi les numi>K>?i 
precedents, mais il esl certL^in quf. i^i 
Tinierface don! vous disposi?z affiche 
A I'pr.ran pn mpnif* Ipmps qu pIIp tpn- 
voic Ies CtiTQct&res a I'irriprimanle. 
I'ecran ainsi recople esl .simulian^- 
mpnl modifip pI n** pput mrmspon- 
dre 6 Tecran original. 
S\ lel esi vofre cas, H Suffit done d-S 
rajoulpv im PRINT du code de 
conlrole supprimont cet affichot^e 3Ui 
votre mal^riel dan;^ la W^ue dii pro 
gr^nimp MRNU dt". disqiipttps qiij 
appelU Ici routine df? l-L£ird-copy {ge- 
neralement la ligiie iv]. Cetie ins- 
triirfir:in PRINT Vodi^ H^.i rnulrol-' 
doit venir juste avanl le CALL 

2| Pluiieurs lecleut":^ nau^^ on! por riil 

tes" a la suite d une ffius^e nitinoou 
vre &ur laquelie il pt?ui elr*^ bon 
d'insistet un instant. En Toccurrmce- 
les person nes concernees ont ta|»t* 
" EXEC FLcliit?r , alors que "Fichier " 
a^il auifc qii'ufL fichier sDi^ .^n 
fliss^mbletiTsatjvfi a^s fofmfitTfeCt. 
Precisons done que toi3t fichier TEXT 
(precede d'un T au calaloguf) n'tsl 
pas pour outanl un lichier F.XF-Cu^i- 
We En porticulier. il nt? imi JAMAIS- 
uii r.'.\\ C 'J '.Ml ^^ouicy 
d 'li^i^f mill" 111 I pivcisr' tou 

lOLi!': nLk^llij^ ^nnf II^^ fj|)i?iation.-j plt- 
nieitant de nit'ttu' t'li inu\e uii pia- 
g.ramme en la ngavjL- -machine, et la 
presentation d^s disqut^irtis rappelle 
egakm-^nt a quoi conrespondent Ies 
differents flchiers et- comment H faul 
Ies uliliser. tn suivadtces tncfications. 
vcus euiterez fiouvenf tSfitmifia vos 
disquettes-.. 



Ptgclsloiis et enata 

Monlteur Etendu du Pom's 8 

A I'issue d un long debat. il semble 
que la seule solution simpl-e pour r&- 
Wud^ peti! pmbl^m^ dii Suffer 
dVnlr^e dans- ce procramme passe 
par une modification du programme- 
^urce comm^ suit ■ 



- Ligne 160; LDX #0 au lieu de 
LDX #1 isolt 8D5F: OO dans le 

- Ligne 163 , NOP au lieu de INY 
(SOII8D66: EA dans I'objet). 

- [nsPrPT imp lign^ 897 INC CH 
QWin! la ligne 897 oiiginaJe (JSR 
DP): 



Bloc-notes do Pom's 13 

A la Kgpe .<S4.(Ji tt convient de rem- 
pl^csr M21^* par ",Ll2 1 '" pour que 
Id JuuLtiun df ^ie&tmttion des flchiers 
tonctionne norma lemenl 



ICARE - Pom^s 14 

L^ UbXi^ des modifications publicc 
dan:^ W PomV 14 concernani I ad tip - 
tatian du proyramnv Toilue du 
Pcm ^ b en vue de son inletjration 
du InyiLit'l ICARE eitwi Tiitillifureu^- 

\wn\ incomplete Vdus rrouvere? ci- 
apres la recapitulation des operalaons 
a yfftrctuer sur le proardrorne source 
ortgfrta! pour cette irt^ntafibn : 

• Rempl^it^r la ^^quene'e "Sulie Ins 
Irucuons par celle publiet^ dan?, le 

9 Supprlmer \es lignes 5/9 a £^12 

• La hgne ^y73 devieni BNE E.ERR 

• La lignc 271 dovicnt PLUME HEX 

(HI 

« Dans la ligne 138, TIO remplace 
TU 

• Supprimer les lignes 134 a 137 

• Supprimer Ies lignes f>S a 9fl 

• Supprimer l^i ll^nc 55 

• Assembler le noilveau tiource ^nsd 
constiiu^.S TadrGsse $886E 



Dlsqne 64K - Pom's 14 

II faui raioutei un codi? D9 a Id fin de 
la n^eapiluiation drt prtiigs-^iTiTrn^ 
AUTO RWAUXINIT.OBJ en 50 FF. 



Dlsques virtuels 16K et 64K 

S voxis possedea deux lecieur^ de 
disQuettes, vnws pfjw^ en l^ri- 
quer" urt trdisieme .eoftant de 
mettre le disque Vfrtuel. en lieu et 
place de voire lecteur 2. 11 sufftl pour 
cela dc irlesigner le disque virtuel 
comme "lectsPUf 3'" et de 3aire ad- 
mpJire au DOS I .'yist^^nci' dh» re Irr- 
leur. La touting dt" i^.^sEion du lecteur 
vlrluel eiant fli."iig^.:'. Ies POKEs sui- 
vanU reaii&ent 1 operation. 

1) Disque 16K : 

• POKE 48825,3 

• POKE 43365,3 

2) Disque 64K : 

• POKE 18372,3 

• POKE 43355,3 



Pom's n 15 



poni> 








a 


55,00 F 


H-BASIC ...::.„....-;.. fCf.Poin-sn- 8) 




ISd IK) K 


MLISIC ,. K PornVn' 10) 






DiSK-MANAGBB tcf. Pom's n li) 


a 


450.00 F 


DBSTAG (CP/M) , _ „_ (cf. Pom's rr" 11) 




450.00 F 


JEUXA (cf. Pom's n~ it) 




80.00 F 


Jtux B _ _ (cf: PomVri^ 12) 




80,00. K .■ 


BASICIUM (cf. Pom's n 13) 




150.00 F 


DEMO CX SY5TEME 64K (d Fom s n r\\ 




55.00 F 






55 on F 


E.P.E. , |cl. cs numero) 




150.00 F 


MACINTOSH (cf. gc num€ro) 




150.00 V 






RO £¥1 F 








N 1 , reciieil d^^s revues 1 a 4 




130.00 F 


DtSQuettes d accomDaQnemeat des rutda^ros 1 a 4 




150 OOF 


N° 2> recueil dc« r«iru«9 5 & 8 




130,00 F 


Disquettie!^ d'ac^oOibaqneiiieiit des huinSros 5 a 8 




iQA no F 


ANCIENS NUMEROS 






HEVUES □ 4 n 7 □ 8 


., & 


35_<Jt>F . 


REVUES nan 10 □ 11 






□ 12 □ 13 □ 1^ n 15 


h 


40.00 F 


DISQUETTES □ 1 L 1 2 □ .-^ □ 4 □ 5 






D6G7nHn9nio 






□ 11 □ 12 □ la □ 14 □ 15 


a 


55.00 F 








POUR 6 NUMEKOS ^ r>*^rtir Hu n 










200,00 F 


ABONNEMENT AVEC DISQUtTTES 


- - a 


480.00 F 




TOTAL TTC 






Supplement expedilion 










MONTANT 






DU REGLEMENT 


Cft» tarifs compr^nent J 'envoi postal en Frmu t mctropoHtainc, 


CEE et Suisse [vole tL^deime exceptee) 


Supplement avion : 10 F par numero etou disquetu 




EhVEjyez cc bon et voti-e r^ertieni ^ 






Edtfioas MEV - 64-70. me d«s Chanties - 


78000 VERSAnXES 


Nom .._ __ _ 






Adresse _ ,,, ,, ... 







78 



Pom's IV 15 



125, rue Amelot 75011 PARIS 
M*^ Filles du Calvaire et Oberkampf 
Tel. 355.07.01 



Ouvert tous les jours sauf dimanche 
de 9 h 30 d 13 h et de 14 h a 19 h 30 



PROMOTION 1« ANNIVERSAIRE 




Prix TTC 

Lecteur de disquette 5'' 1/4 halt size 1950 f 

Carte controleur _ 400 I 

Dfsquettes grijndo marque (fes 10) 220 

CARTE LANGAGE + 1 bte disq. . 500 
CARTE 80 COLONNES {pour I I +) 750 
avec kit inverse ot minuscules accentuees) 

CARTE 128 K 1600 

Interlace paralleJe pour EPSON av cable aoo 

Mlcrobuffer 32 K 1400 

Carte Ger^e 600 

Carte Communjcatdon _ 650 

VENTILATEUR EXTERNE 300 

JOYSTICK LUXE [precisez If f ou fie) 2Q0 

Accelerator. Applicard. Carle a08B. elc.._ nous consumer 

MONITEUR PHILIPS 12" Verl 1000 

ASCII Express Professionnal 1200 

& beaunniip d'^^iitfG? programmes 

PROMOTION SUR NOS (MPRIMANTES 



900 F J 




MODEM 
UZZ BOX 



mm 



IMPRIMAMTE Graphtque 
av€c Interface pargEiele et cabl^ 



3500 



Prix fTiudilitibies sans ptSavis. stock limited 

' APPLE If est une marque deoosee de APPLE COMPUTER INC 



LECTEUR 
COMPATIBLE 
2 C - 2.200 F 



BON DE COMMANDE a relourner a MACSI 125. rue AMELOT 7501 1 PARIS 
NUM, Prenom 



rue 



Code postal Ville 

Tef Materiel possed^^ 

SIgncilure 



QU 


DESIGNATION 


PRIX 
































REGLEMENT JOJNT 

Cheque □ 

CC.P □ 


parliciD 
sur envoi 

TOTAL 
Purl grat 
AcrraT 3 


4 2^ no 

jti pguf 
DOO F. 



' ■, 

Le cadeau d'Atari 
atouslespossesseursdeVIC20, « 
Commodore 64, Apple 11 et Tf 99/4/L 



I 




Avec Atarisoft, decouvrez 13 des plus grandes stars d'Atari!: 

Mcmc si vous n'avez pas d'orcliriiiteur Atari. Alarisoft vous pemiet clesormais de 
decouvrir les programmes Alari Ics plus celebres : Pac-Man, Centipede, Jungle Hunt, 
Pole Position, Galaxian, Miss Pac-Man, Joust, Moon Patrol. ATA DIC#%CT' 
Dig-Dug, Donkey Kong, Robotron 20S4, Defender, Stargulc, J*I#%ICI^W" ■ 



